testit Subroutine

subroutine testit(string, test)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string
logical, intent(in) :: test

Contents

Source Code

testit

Source Code

subroutine testit(string,test)
character(len=*),intent(in) :: string
logical,intent(in) :: test

   write(*,it,advance='no')arr
   if(test)then
      print it,':strict:',string,'passed'
   else
      print it,':strict:',string,'failed'
      stop 1
   endif

end subroutine testit