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