should_be_int Subroutine

private subroutine should_be_int(val, rslt)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: val
integer, intent(in) :: rslt

Contents

Source Code


Source Code

  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