gcc/testsuite/gfortran.dg/interface_15.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-c -std=f95" }
   3 ! Testcase from PR fortran/25094
   4 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   5
   6 MODULE M1
   7   TYPE T1
   8     INTEGER :: I
   9   END TYPE T1
  10   INTERFACE I
  11     MODULE PROCEDURE F1
  12   END INTERFACE
  13   PRIVATE ! :: T1,F1
  14   PUBLIC  :: I
  15 CONTAINS
  16   INTEGER FUNCTION F1(D)  ! { dg-error "PUBLIC interface" }
  17     TYPE(T1) :: D
  18     F1 = D%I
  19   END FUNCTION
  20 END MODULE
  21
  22 ! { dg-final { cleanup-modules "M1" } }