flang/test/Semantics/struct01.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Check for new semantic errors from misuse of the DEC STRUCTURE extension
   3 program 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
  19 end