20 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for new semantic errors from misuse of the DEC STRUCTURE extension3program main4 !ERROR: Derived type '/undeclared/' not found5 record /undeclared/ var6 structure /s/7 !ERROR: /s/ is not a known STRUCTURE8 record /s/ attemptToRecurse9 !ERROR: not yet implemented: support for UNION10 union11 map12 integer j13 end map14 map15 real x16 end map17 end union18 end structure19end20