brintos / llvm-project-archived public Read only

1! RUN: %python %S/test_errors.py %s %flang_fc12module m3  type :: t4    real :: y5  end type6end module7 8use m9implicit type(t)(x)10z = x%y  !OK: x is type(t)11!ERROR: 'w' is not an object of derived type; it is implicitly typed12z = w%y13end14