Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical | :: | testit |
subroutine printit(testit)
logical testit
write(6,'(*(g0,1x))',advance='no')'CASE ',casen,merge('PASSED:','FAILED:',testit)
write(6,'(/,a)')repeat('=',132)
flush(unit=6)
end subroutine printit