2 ! { dg-options "-std=f95" }
5 ! Reported by Norman S. Clerman
6 ! and reduced by Joost VandeVondele
18 TYPE(T1
) FUNCTION F1()
21 TYPE(T1
) FUNCTION F2() ! { dg-error "Fortran 2003: PUBLIC variable 'f2'" }
24 ! { dg-final { cleanup-modules "m1" } }