gcc/testsuite/gfortran.dg/private_type_12.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   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() ! { dg-error "Fortran 2003: PUBLIC variable 'f2'" }
  22   END FUNCTION F2
  23 END MODULE M1