gcc/testsuite/gm2/iso/fail/constrecord3.mod

   1 MODULE constrecord3 ;   (*!m2iso*)
   2
   3 TYPE
   4    VEC = RECORD
   5             x, y, z: REAL ;
   6          END ;
   7
   8 CONST
   9    VecConst = VEC {1.0, 2.0, 3.0} ;
  10
  11 BEGIN
  12    WITH VecConst DO
  13       y := 1.0
  14    END
  15 END constrecord3.