Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/vax_structure_1.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ! { dg-do compile }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 ! { dg-options "-fdec-structure" }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 ! Tests the VAX STRUCTURE and RECORD statements.
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 ! These are syntactic sugar for TYPE statements.
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 program vax_structure_1
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 structure /stocklevel/
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 integer*2 A
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 integer*4 B
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 integer*4 CS(0:15)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 byte D(0:15)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 end structure
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 record /stocklevel/ rec1, recs(100)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 integer x
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 integer*2 y
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 rec1.A = 100
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 recs(100).CS(10)=1
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 x = 150
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21 y = 150
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 print *, rec1.B.eq.100
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 print *, rec1.A.eq.x ! {dg-error "are INTEGER(2)/INTEGER(4)"}
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 print *, rec1.A.eq.y
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26 print *, recs(100).CS(10)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 end program