2 ! Test the fix for PR42481, in which 'sub' was not recognised as
5 ! Contributed by William Mitchell < william.mitchell@nist.gov>
12 if (trim (chr
) .ne
. "real") call abort
13 if (int (x
) .ne
. 1) call abort
20 module procedure sub
, sub_int
23 subroutine sub_int(i
, chr
)
26 if (trim (chr
) .ne
. "integer") call abort
27 if (i
.ne
. 1) call abort
28 end subroutine sub_int
34 call sub(1, "integer ")
35 call sub(1.0, "real ")