xref: /llvm-project/flang/test/Semantics/resolve23.f90 (revision 6c1ac141d3c98af9738bc77fcb55602cbff7751f)
1*6c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1
264ab3302SCarolineConcattomodule m
364ab3302SCarolineConcatto  type :: t
464ab3302SCarolineConcatto    real :: y
564ab3302SCarolineConcatto  end type
664ab3302SCarolineConcattoend module
764ab3302SCarolineConcatto
864ab3302SCarolineConcattouse m
964ab3302SCarolineConcattoimplicit type(t)(x)
1064ab3302SCarolineConcattoz = x%y  !OK: x is type(t)
1164ab3302SCarolineConcatto!ERROR: 'w' is not an object of derived type; it is implicitly typed
1264ab3302SCarolineConcattoz = w%y
1364ab3302SCarolineConcattoend
14