23 lines
447 B
Fortran
23 lines
447 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-c -std=f95" }
|
|
! Testcase from PR fortran/25094
|
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
|
|
|
MODULE M1
|
|
TYPE T1
|
|
INTEGER :: I
|
|
END TYPE T1
|
|
INTERFACE I
|
|
MODULE PROCEDURE F1
|
|
END INTERFACE
|
|
PRIVATE ! :: T1,F1
|
|
PUBLIC :: I
|
|
CONTAINS
|
|
INTEGER FUNCTION F1(D) ! { dg-error "PUBLIC interface" }
|
|
TYPE(T1) :: D
|
|
F1 = D%I
|
|
END FUNCTION
|
|
END MODULE
|
|
|
|
! { dg-final { cleanup-modules "M1" } }
|