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