From 06d13576b304385703b5661152f8bdc2886c3075 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 28 Sep 2023 07:53:12 -0600 Subject: [PATCH 1/7] working on test --- tests/test_w3fi73.F90 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tests/test_w3fi73.F90 b/tests/test_w3fi73.F90 index 93aedd7a..844b6021 100644 --- a/tests/test_w3fi73.F90 +++ b/tests/test_w3fi73.F90 @@ -10,6 +10,7 @@ program test_w3fi73 parameter (BLEN = 3) parameter (BMSLEN = 3) integer :: ibmap(BLEN), bms(BMSLEN) + character :: cbms(4) integer :: i integer :: ierr @@ -33,6 +34,10 @@ program test_w3fi73 call w3fi73(ibflag, ibmap, iblen, bms, lenbms, ierr) if (ierr .ne. 0) stop 4 if (lenbms .ne. 8) stop 5 + cbms = transfer(bms, cbms) + do i = 0, 8 + print '(z1)', cbms(i) + end do ! if (bms(1) .ne. 218628096 .or. bms(2) .ne. 14680064) stop 7 print*,"SUCCESS" From 8e36dda7afdf5e3a57dda24cf30b4a5ce0465b38 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 28 Sep 2023 07:57:41 -0600 Subject: [PATCH 2/7] working on test --- tests/test_w3fi73.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/test_w3fi73.F90 b/tests/test_w3fi73.F90 index 844b6021..ec9d4041 100644 --- a/tests/test_w3fi73.F90 +++ b/tests/test_w3fi73.F90 @@ -35,7 +35,7 @@ program test_w3fi73 if (ierr .ne. 0) stop 4 if (lenbms .ne. 8) stop 5 cbms = transfer(bms, cbms) - do i = 0, 8 + do i = 1, 8 print '(z1)', cbms(i) end do ! if (bms(1) .ne. 218628096 .or. bms(2) .ne. 14680064) stop 7 From ef07fdeb7f44d4300a316ab149c83009eaf31230 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 28 Sep 2023 08:04:44 -0600 Subject: [PATCH 3/7] working on test --- .github/workflows/developer.yml | 4 ++-- tests/test_w3fi73.F90 | 6 ++++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/.github/workflows/developer.yml b/.github/workflows/developer.yml index b6551e51..baa3dcde 100644 --- a/.github/workflows/developer.yml +++ b/.github/workflows/developer.yml @@ -17,8 +17,8 @@ jobs: developer: runs-on: ubuntu-latest env: - FC: gfortran-11 - CC: gcc-11 + FC: gfortran-12 + CC: gcc-12 steps: diff --git a/tests/test_w3fi73.F90 b/tests/test_w3fi73.F90 index ec9d4041..90249e7b 100644 --- a/tests/test_w3fi73.F90 +++ b/tests/test_w3fi73.F90 @@ -10,7 +10,8 @@ program test_w3fi73 parameter (BLEN = 3) parameter (BMSLEN = 3) integer :: ibmap(BLEN), bms(BMSLEN) - character :: cbms(4) + character :: cbms(8) + integer :: expected_cbms(8) = (/ 0, 0, 8, 13, 0, 0, 224, 0 /) integer :: i integer :: ierr @@ -36,7 +37,8 @@ program test_w3fi73 if (lenbms .ne. 8) stop 5 cbms = transfer(bms, cbms) do i = 1, 8 - print '(z1)', cbms(i) + print *, ichar(cbms(i)) + if (ichar(cbms(i)) .ne. expected_cbms(i)) stop 100 end do ! if (bms(1) .ne. 218628096 .or. bms(2) .ne. 14680064) stop 7 From e659943b76c015a605cb0d74e05ce23d4bd37fef Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 28 Sep 2023 08:19:34 -0600 Subject: [PATCH 4/7] working on test --- .github/workflows/developer.yml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/.github/workflows/developer.yml b/.github/workflows/developer.yml index baa3dcde..b6551e51 100644 --- a/.github/workflows/developer.yml +++ b/.github/workflows/developer.yml @@ -17,8 +17,8 @@ jobs: developer: runs-on: ubuntu-latest env: - FC: gfortran-12 - CC: gcc-12 + FC: gfortran-11 + CC: gcc-11 steps: From 2f19bf8bc5d4562fc362d7efced6f176c5624af7 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 28 Sep 2023 08:39:24 -0600 Subject: [PATCH 5/7] working on test --- tests/test_w3fi73.F90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/tests/test_w3fi73.F90 b/tests/test_w3fi73.F90 index 90249e7b..6b3fbdbd 100644 --- a/tests/test_w3fi73.F90 +++ b/tests/test_w3fi73.F90 @@ -31,6 +31,9 @@ program test_w3fi73 do i = 1, BLEN ibmap(i) = 1 end do + do i = 1, 8 + cbms(i) = achar(0) + end do iblen = BLEN call w3fi73(ibflag, ibmap, iblen, bms, lenbms, ierr) if (ierr .ne. 0) stop 4 From 67fa7df205a8d49110de312b11089454c7471bb0 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 28 Sep 2023 08:45:27 -0600 Subject: [PATCH 6/7] working on test --- tests/test_w3fi73.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/test_w3fi73.F90 b/tests/test_w3fi73.F90 index 6b3fbdbd..8f011330 100644 --- a/tests/test_w3fi73.F90 +++ b/tests/test_w3fi73.F90 @@ -30,6 +30,7 @@ program test_w3fi73 ibflag = 0 do i = 1, BLEN ibmap(i) = 1 + bms(i) = 0 end do do i = 1, 8 cbms(i) = achar(0) From f83d1afe1e18833910757a6778f5e073d181d342 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 28 Sep 2023 08:52:34 -0600 Subject: [PATCH 7/7] working on test --- tests/test_w3fi73.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/tests/test_w3fi73.F90 b/tests/test_w3fi73.F90 index 8f011330..c915f026 100644 --- a/tests/test_w3fi73.F90 +++ b/tests/test_w3fi73.F90 @@ -44,7 +44,6 @@ program test_w3fi73 print *, ichar(cbms(i)) if (ichar(cbms(i)) .ne. expected_cbms(i)) stop 100 end do -! if (bms(1) .ne. 218628096 .or. bms(2) .ne. 14680064) stop 7 print*,"SUCCESS" end program test_w3fi73