gcc/testsuite/gfortran.dg/private_type_11.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3 ! PR fortran/38065
   4 !
   5 ! Reported by Norman S. Clerman
   6 ! and reduced by Joost VandeVondele
   7 !
   8 MODULE M1
   9   IMPLICIT NONE
  10   PRIVATE
  11   TYPE T1
  12    INTEGER :: I1
  13   END TYPE T1
  14   PUBLIC :: S1,F2
  15 CONTAINS
  16   SUBROUTINE S1
  17   CONTAINS
  18    TYPE(T1) FUNCTION F1()
  19    END FUNCTION F1
  20   END SUBROUTINE S1
  21   TYPE(T1) FUNCTION F2()
  22   END FUNCTION F2
  23 END MODULE M1
  24 ! { dg-final { cleanup-modules "m1" } }