2 ! { dg-options "-pedantic -fwhole-file" }
4 ! Tests the fix for PR25087, in which the following invalid code
7 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
9 ! Modified by Tobias Burnus to fix PR fortran/41235.
12 CHARACTER(len
=10) :: a
17 CHARACTER(LEN
=n
), EXTERNAL :: a
! { dg-error "Character length mismatch" }
18 CHARACTER(LEN
=n
), EXTERNAL :: d
! { dg-error "Character length mismatch" }
20 function b (m
) ! This is OK
30 function c () ! This is OK
37 CHARACTER(len
=99) :: d