flang/test/Semantics/resolve21.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3 subroutine s1
   4   type :: t
   5     integer :: i
   6     integer :: s1
   7     integer :: t
   8   end type
   9   !ERROR: 't' is already declared in this scoping unit
  10   integer :: t
  11   integer :: i, j
  12   type(t) :: x
  13   !ERROR: Derived type 't2' not found
  14   type(t2) :: y
  15   external :: v
  16   type(t) :: v, w
  17   external :: w
  18   !ERROR: 'z' is not an object of derived type; it is implicitly typed
  19   i = z%i
  20   !ERROR: 's1' is an invalid base for a component reference
  21   i = s1%i
  22   !ERROR: 'j' is not an object of derived type
  23   i = j%i
  24   !ERROR: Component 'j' not found in derived type 't'
  25   i = x%j
  26   !ERROR: 'v' is an invalid base for a component reference
  27   i = v%i
  28   !ERROR: 'w' is an invalid base for a component reference
  29   i = w%i
  30   i = x%i  !OK
  31 end subroutine
  32
  33 subroutine s2
  34   type :: t1
  35     integer :: i
  36   end type
  37   type :: t2
  38     type(t1) :: x
  39   end type
  40   type(t2) :: y
  41   integer :: i
  42   !ERROR: Component 'j' not found in derived type 't1'
  43   k = y%x%j
  44   k = y%x%i !OK
  45 end subroutine