flang/test/Semantics/resolve23.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 module m
   3   type :: t
   4     real :: y
   5   end type
   6 end module
   7
   8 use m
   9 implicit type(t)(x)
  10 z = x%y  !OK: x is type(t)
  11 !ERROR: 'w' is not an object of derived type; it is implicitly typed
  12 z = w%y
  13 end