3 ! PR fortran/37445, in which the contained 'putaline' would be
4 ! ignored and no specific interface found in the generic version.
6 ! Contributed by Norman S Clerman < clerman@fuse.net>
10 MODULE PROCEDURE S1,S2
27 if (check .ne. 1) call abort
29 if (check .ne. 2) call abort
30 ! CALL putaline(1.0) ! => this now causes an error, as it should
32 SUBROUTINE putaline(x)
33 character, optional :: x
45 if (check .ne. 3) call abort
47 if (rcheck .ne. 4.0) call abort