Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/dec-comparison.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
1 ! { dg-do compile }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
2 ! { dg-options "-fdec" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
3 !
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
4 ! Test case contributed by Mark Eggleston <mark.eggleston@codethink.com>
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
5 !
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
6 ! Hollerith constants and character literals are allowed in comparisons,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
7 ! check that character variables can not be compared with numeric variables.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
8
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
9 program convert
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
10 character(4) :: a = 4hJMAC
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
11 integer(4) :: b = "JMAC"
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
12 real(4) :: c = "JMAC"
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
13 complex(4) :: d = "JMACJMAC"
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
14 ! integers
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
15 if (a.ne.b) stop 1 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
16 if (b.eq.a) stop 2 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
17 if (a.ge.b) stop 3 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
18 if (b.ge.a) stop 4 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
19 if (a.gt.b) stop 5 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
20 if (b.gt.a) stop 6 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
21 if (a.le.b) stop 3 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
22 if (b.le.a) stop 4 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
23 if (a.lt.b) stop 5 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
24 if (b.lt.a) stop 6 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
25 ! reals
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
26 if (a.ne.c) stop 7 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
27 if (c.eq.a) stop 8 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
28 if (a.ge.c) stop 9 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
29 if (c.ge.a) stop 10 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
30 if (a.gt.c) stop 11 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
31 if (c.gt.a) stop 12 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
32 if (a.le.c) stop 13 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
33 if (c.le.a) stop 14 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
34 if (a.lt.c) stop 15 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
35 if (c.lt.a) stop 16 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
36 ! complexes
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
37 a = "JMACJMAC"
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
38 if (a.ne.d) stop 17 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
39 if (d.eq.a) stop 18 ! { dg-error "Operands of comparison" }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
40 end program