Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | val | |||
integer, | intent(in) | :: | rslt |
subroutine should_be_int(val, rslt)
integer, intent(in) :: val, rslt
if (should_print(3)) write (*,*) ' Value: ', val, ' should be ', rslt, proc_message()
end subroutine should_be_int