printit Subroutine

subroutine printit(testit)

Arguments

Type IntentOptional AttributesName
logical :: testit

Contents

Source Code


Source Code

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