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 ")
37 ! { dg-final { cleanup-modules "mod1 mod2" } }