Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/mod_sign0_1.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
19 implicit none 19 implicit none
20 real :: r, t 20 real :: r, t
21 21
22 r = mod (4., 2.) 22 r = mod (4., 2.)
23 t = sign (1., r) 23 t = sign (1., r)
24 if (t < 0.) call abort 24 if (t < 0.) STOP 1
25 25
26 r = modulo (4., 2.) 26 r = modulo (4., 2.)
27 t = sign (1., r) 27 t = sign (1., r)
28 if (t < 0.) call abort 28 if (t < 0.) STOP 2
29 29
30 r = mod (-4., 2.) 30 r = mod (-4., 2.)
31 t = sign (1., r) 31 t = sign (1., r)
32 if (t > 0.) call abort 32 if (t > 0.) STOP 3
33 33
34 r = modulo (-4., 2.) 34 r = modulo (-4., 2.)
35 t = sign (1., r) 35 t = sign (1., r)
36 if (t < 0.) call abort 36 if (t < 0.) STOP 4
37 37
38 r = mod (4., -2.) 38 r = mod (4., -2.)
39 t = sign (1., r) 39 t = sign (1., r)
40 if (t < 0.) call abort 40 if (t < 0.) STOP 5
41 41
42 r = modulo (4., -2.) 42 r = modulo (4., -2.)
43 t = sign (1., r) 43 t = sign (1., r)
44 if (t > 0.) call abort 44 if (t > 0.) STOP 6
45 45
46 r = mod (-4., -2.) 46 r = mod (-4., -2.)
47 t = sign (1., r) 47 t = sign (1., r)
48 if (t > 0.) call abort 48 if (t > 0.) STOP 7
49 49
50 r = modulo (-4., -2.) 50 r = modulo (-4., -2.)
51 t = sign (1., r) 51 t = sign (1., r)
52 if (t > 0.) call abort 52 if (t > 0.) STOP 8
53 53
54 end program mod_sign0_1 54 end program mod_sign0_1