flang/test/Semantics/resolve48.f90

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