gcc/testsuite/gfortran.dg/function_kinds_2.f90

   1 ! Tests the fix for PR33334, in which the TYPE in the function
   2 ! declaration cannot be legally accessed.
   3 !
   4 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   5 !
   6 module types
   7  implicit none
   8  type t
   9    integer :: i = 99
  10  end type t
  11 end module
  12
  13 module x
  14  use types
  15  interface
  16    type(t) function bar() ! { dg-error "is not accessible" }
  17    end function
  18  end interface
  19 end module
  20 ! { dg-final { cleanup-modules "types x" } }
  21