2 ! Tests the fix for PR25087, in which the following invalid code
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
8 CHARACTER(LEN
=n
), EXTERNAL :: a
! { dg-error "must have an explicit interface" }
10 function b (m
) ! This is OK
19 function c () ! This is OK