16 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12type t3end type4real, pointer :: rptr5type(t), pointer :: tptr6class(*), pointer :: ulpp7print *, associated(rptr, ulpp)8print *, associated(ulpp, rptr)9print *, associated(tptr, ulpp)10print *, associated(ulpp, tptr)11!ERROR: Arguments of ASSOCIATED() must be a pointer and an optional valid target12print *, associated(rptr, tptr)13!ERROR: Arguments of ASSOCIATED() must be a pointer and an optional valid target14print *, associated(tptr, rptr)15end16