Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/real_const_3.f90 @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 !{ dg-do run }
kono
parents:
diff changeset
2 !{ dg-options "-fno-range-check" }
kono
parents:
diff changeset
3 !{ dg-add-options ieee }
kono
parents:
diff changeset
4 ! PR19310 and PR19904, allow disabling range check during compile.
kono
parents:
diff changeset
5 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
kono
parents:
diff changeset
6 program main
kono
parents:
diff changeset
7 character(len=80) str
kono
parents:
diff changeset
8 real, parameter :: zero=0, nan=0/zero
kono
parents:
diff changeset
9 complex :: z = (-0.1,-2.2)/(0.0,0.0)
kono
parents:
diff changeset
10 complex :: z2 = (0.1,1)/0
kono
parents:
diff changeset
11 complex :: z3 = (1e35, -2e3)/1.234e-37
kono
parents:
diff changeset
12 complex :: z4 = (1e-35, -2e-35)/1234e34
kono
parents:
diff changeset
13 real :: a
kono
parents:
diff changeset
14 a = exp(1000.0)
kono
parents:
diff changeset
15 b = 1/exp(1000.0)
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 write(str,*) a
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
18 if (trim(adjustl(str)) .ne. 'Infinity') STOP 1
111
kono
parents:
diff changeset
19
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
20 if (b .ne. 0.) STOP 2
111
kono
parents:
diff changeset
21
kono
parents:
diff changeset
22 write(str,*) -1.0/b
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
23 if (trim(adjustl(str)) .ne. '-Infinity') STOP 3
111
kono
parents:
diff changeset
24
kono
parents:
diff changeset
25 write(str,*) b/0.0
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
26 if (trim(adjustl(str)) .ne. 'NaN') STOP 4
111
kono
parents:
diff changeset
27
kono
parents:
diff changeset
28 write(str,*) 0.0/0.0
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
29 if (trim(adjustl(str)) .ne. 'NaN') STOP 5
111
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 write(str,*) 1.0/(-0.)
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
32 if (trim(adjustl(str)) .ne. '-Infinity') STOP 6
111
kono
parents:
diff changeset
33
kono
parents:
diff changeset
34 write(str,*) -2.0/0.
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
35 if (trim(adjustl(str)) .ne. '-Infinity') STOP 7
111
kono
parents:
diff changeset
36
kono
parents:
diff changeset
37 write(str,*) 3.0/0.
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
38 if (trim(adjustl(str)) .ne. 'Infinity') STOP 8
111
kono
parents:
diff changeset
39
kono
parents:
diff changeset
40 write(str,*) nan
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
41 if (trim(adjustl(str)) .ne. 'NaN') STOP 9
111
kono
parents:
diff changeset
42
kono
parents:
diff changeset
43 write(str,*) z
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
44 if (trim(adjustl(str)) .ne. '(NaN,NaN)') STOP 10
111
kono
parents:
diff changeset
45
kono
parents:
diff changeset
46 write(str,*) z2
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
47 if (trim(adjustl(str)) .ne. '(NaN,NaN)') STOP 11
111
kono
parents:
diff changeset
48
kono
parents:
diff changeset
49 write(str,*) z3
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
50 if (trim(adjustl(str)) .ne. '(Inf,-Inf)') STOP 12
111
kono
parents:
diff changeset
51
kono
parents:
diff changeset
52 write(str,*) z4
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
53 if (trim(adjustl(str)) .ne. '(0.00000000,-0.00000000)') STOP 13
111
kono
parents:
diff changeset
54 end program main