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