report_test Subroutine

subroutine report_test(name, ok, id, nfail)

Print a single test result. Increments the global test counter id, prints a PASS/FAIL line, and increments nfail when the test fails.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
logical, intent(in) :: ok
integer, intent(inout) :: id
integer, intent(inout) :: nfail

Called by

proc~~report_test~~CalledByGraph proc~report_test report_test proc~test_001 test_001 proc~test_001->proc~report_test proc~test_002 test_002 proc~test_002->proc~report_test proc~test_003 test_003 proc~test_003->proc~report_test proc~test_004 test_004 proc~test_004->proc~report_test proc~test_005 test_005 proc~test_005->proc~report_test proc~test_006 test_006 proc~test_006->proc~report_test proc~test_007 test_007 proc~test_007->proc~report_test proc~test_008 test_008 proc~test_008->proc~report_test proc~test_009 test_009 proc~test_009->proc~report_test proc~test_010 test_010 proc~test_010->proc~report_test proc~test_011 test_011 proc~test_011->proc~report_test proc~test_012 test_012 proc~test_012->proc~report_test proc~test_013 test_013 proc~test_013->proc~report_test proc~test_014 test_014 proc~test_014->proc~report_test proc~test_015 test_015 proc~test_015->proc~report_test proc~test_016 test_016 proc~test_016->proc~report_test proc~test_017 test_017 proc~test_017->proc~report_test proc~test_018 test_018 proc~test_018->proc~report_test proc~test_019 test_019 proc~test_019->proc~report_test proc~test_020 test_020 proc~test_020->proc~report_test proc~test_021 test_021 proc~test_021->proc~report_test proc~test_022 test_022 proc~test_022->proc~report_test proc~test_023 test_023 proc~test_023->proc~report_test proc~test_024 test_024 proc~test_024->proc~report_test proc~test_025 test_025 proc~test_025->proc~report_test proc~test_026 test_026 proc~test_026->proc~report_test proc~test_027 test_027 proc~test_027->proc~report_test proc~test_028 test_028 proc~test_028->proc~report_test proc~test_029 test_029 proc~test_029->proc~report_test proc~test_030 test_030 proc~test_030->proc~report_test proc~test_031 test_031 proc~test_031->proc~report_test proc~test_032 test_032 proc~test_032->proc~report_test proc~test_033 test_033 proc~test_033->proc~report_test proc~test_034 test_034 proc~test_034->proc~report_test proc~test_035 test_035 proc~test_035->proc~report_test proc~test_036 test_036 proc~test_036->proc~report_test proc~test_037 test_037 proc~test_037->proc~report_test proc~test_038 test_038 proc~test_038->proc~report_test proc~test_039 test_039 proc~test_039->proc~report_test proc~test_040 test_040 proc~test_040->proc~report_test proc~test_041 test_041 proc~test_041->proc~report_test proc~test_042 test_042 proc~test_042->proc~report_test proc~test_043 test_043 proc~test_043->proc~report_test proc~test_044 test_044 proc~test_044->proc~report_test proc~test_045 test_045 proc~test_045->proc~report_test proc~test_046 test_046 proc~test_046->proc~report_test proc~test_047 test_047 proc~test_047->proc~report_test proc~test_048 test_048 proc~test_048->proc~report_test proc~test_049 test_049 proc~test_049->proc~report_test proc~test_050 test_050 proc~test_050->proc~report_test proc~test_051 test_051 proc~test_051->proc~report_test proc~test_052 test_052 proc~test_052->proc~report_test proc~test_053 test_053 proc~test_053->proc~report_test proc~test_054 test_054 proc~test_054->proc~report_test proc~test_055 test_055 proc~test_055->proc~report_test proc~test_056 test_056 proc~test_056->proc~report_test proc~test_057 test_057 proc~test_057->proc~report_test proc~test_058 test_058 proc~test_058->proc~report_test proc~test_059 test_059 proc~test_059->proc~report_test proc~test_060 test_060 proc~test_060->proc~report_test proc~test_061 test_061 proc~test_061->proc~report_test proc~test_062 test_062 proc~test_062->proc~report_test proc~test_063 test_063 proc~test_063->proc~report_test proc~test_064 test_064 proc~test_064->proc~report_test proc~test_065 test_065 proc~test_065->proc~report_test proc~test_066 test_066 proc~test_066->proc~report_test proc~test_067 test_067 proc~test_067->proc~report_test proc~test_068 test_068 proc~test_068->proc~report_test proc~test_069 test_069 proc~test_069->proc~report_test proc~test_070 test_070 proc~test_070->proc~report_test proc~test_071 test_071 proc~test_071->proc~report_test proc~test_072 test_072 proc~test_072->proc~report_test proc~test_073 test_073 proc~test_073->proc~report_test proc~test_074 test_074 proc~test_074->proc~report_test proc~test_075 test_075 proc~test_075->proc~report_test proc~test_076 test_076 proc~test_076->proc~report_test proc~test_077 test_077 proc~test_077->proc~report_test proc~test_078 test_078 proc~test_078->proc~report_test proc~test_079 test_079 proc~test_079->proc~report_test proc~test_080 test_080 proc~test_080->proc~report_test proc~test_081 test_081 proc~test_081->proc~report_test proc~test_082 test_082 proc~test_082->proc~report_test proc~test_083 test_083 proc~test_083->proc~report_test proc~test_084 test_084 proc~test_084->proc~report_test proc~test_085 test_085 proc~test_085->proc~report_test proc~test_086 test_086 proc~test_086->proc~report_test proc~test_087 test_087 proc~test_087->proc~report_test proc~test_088 test_088 proc~test_088->proc~report_test proc~test_089 test_089 proc~test_089->proc~report_test program~check check program~check->proc~test_001 program~check->proc~test_002 program~check->proc~test_003 program~check->proc~test_004 program~check->proc~test_005 program~check->proc~test_006 program~check->proc~test_007 program~check->proc~test_008 program~check->proc~test_009 program~check->proc~test_010 program~check->proc~test_011 program~check->proc~test_012 program~check->proc~test_013 program~check->proc~test_014 program~check->proc~test_015 program~check->proc~test_016 program~check->proc~test_017 program~check->proc~test_018 program~check->proc~test_019 program~check->proc~test_020 program~check->proc~test_021 program~check->proc~test_022 program~check->proc~test_023 program~check->proc~test_024 program~check->proc~test_025 program~check->proc~test_026 program~check->proc~test_027 program~check->proc~test_028 program~check->proc~test_029 program~check->proc~test_030 program~check->proc~test_031 program~check->proc~test_032 program~check->proc~test_033 program~check->proc~test_034 program~check->proc~test_035 program~check->proc~test_036 program~check->proc~test_037 program~check->proc~test_038 program~check->proc~test_039 program~check->proc~test_040 program~check->proc~test_041 program~check->proc~test_042 program~check->proc~test_043 program~check->proc~test_044 program~check->proc~test_045 program~check->proc~test_046 program~check->proc~test_047 program~check->proc~test_048 program~check->proc~test_049 program~check->proc~test_050 program~check->proc~test_051 program~check->proc~test_052 program~check->proc~test_053 program~check->proc~test_054 program~check->proc~test_055 program~check->proc~test_056 program~check->proc~test_057 program~check->proc~test_058 program~check->proc~test_059 program~check->proc~test_060 program~check->proc~test_061 program~check->proc~test_062 program~check->proc~test_063 program~check->proc~test_064 program~check->proc~test_065 program~check->proc~test_066 program~check->proc~test_067 program~check->proc~test_068 program~check->proc~test_069 program~check->proc~test_070 program~check->proc~test_071 program~check->proc~test_072 program~check->proc~test_073 program~check->proc~test_074 program~check->proc~test_075 program~check->proc~test_076 program~check->proc~test_077 program~check->proc~test_078 program~check->proc~test_079 program~check->proc~test_080 program~check->proc~test_081 program~check->proc~test_082 program~check->proc~test_083 program~check->proc~test_084 program~check->proc~test_085 program~check->proc~test_086 program~check->proc~test_087 program~check->proc~test_088 program~check->proc~test_089

Source Code

   subroutine report_test(name, ok, id, nfail)
      character(len=*), intent(in)    :: name
      logical,          intent(in)    :: ok
      integer,          intent(inout) :: id, nfail

      id = id + 1
      if (ok) then
         write(*,'("[",i3.3,"] PASSED  ",a)') id, name
      else
         write(*,'("[",i3.3,"] FAILED  ",a)') id, name
         nfail = nfail + 1
      end if
   end subroutine report_test