11 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Regression test for crash3subroutine sub(xx)4 type(*) :: xx5 type ty6 end type7 type(ty) obj8 !ERROR: TYPE(*) dummy argument may only be used as an actual argument9 obj = ty(xx)10end11