1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Check for new semantic errors from misuse of the DEC STRUCTURE extension 3program main 4 !ERROR: Derived type '/undeclared/' not found 5 record /undeclared/ var 6 structure /s/ 7 !ERROR: /s/ is not a known STRUCTURE 8 record /s/ attemptToRecurse 9 !ERROR: not yet implemented: support for UNION 10 union 11 map 12 integer j 13 end map 14 map 15 real x 16 end map 17 end union 18 end structure 19end 20