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