flang/test/Semantics/resolve48.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Test correct use-association of a derived type.
   3 module m1
   4   implicit none
   5   type :: t
   6   end type
   7 end module
   8 module m2
   9   use m1, only: t
  10 end module
  11 module m3
  12   use m2
  13   type(t) :: o
  14 end
  15
  16 ! Test access-stmt with generic interface and type of same name.
  17 module m4
  18   private
  19   public :: t1, t2
  20   type :: t2
  21   end type
  22   interface t1
  23     module procedure init1
  24   end interface
  25   interface t2
  26     module procedure init2
  27   end interface
  28   type :: t1
  29   end type
  30 contains
  31   type(t1) function init1()
  32   end function
  33   type(t2) function init2()
  34   end function
  35 end module