xref: /llvm-project/flang/test/Semantics/struct01.f90 (revision df209b8038f3803621e96799f5c43e9145448e10)
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