Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/dec_parameter_1.f @ 132:d34655255c78
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 |
---|---|
20 | 20 |
21 real(8), volatile :: two | 21 real(8), volatile :: two |
22 two = 2.0d0 | 22 two = 2.0d0 |
23 x = two * pi_1 * f_1 * t | 23 x = two * pi_1 * f_1 * t |
24 y = two * pi_2 * f_2 * t | 24 y = two * pi_2 * f_2 * t |
25 z = two * pi_3 * f_3 * t | |
26 return | 25 return |
27 end subroutine | 26 end subroutine |
28 | 27 |
29 subroutine sub2(t, x, y, z) | 28 subroutine sub2(t, x, y, z) |
30 implicit none | 29 implicit none |
56 write(*,'(4D18.5)') t, x2, y2, z2 | 55 write(*,'(4D18.5)') t, x2, y2, z2 |
57 | 56 |
58 if (x1 .ne. x2 .or. y1 .ne. y2 | 57 if (x1 .ne. x2 .or. y1 .ne. y2 |
59 & .or. x1 .ne. y1 .or. x2 .ne. y2 | 58 & .or. x1 .ne. y1 .or. x2 .ne. y2 |
60 & .or. y2 .ne. z2) then | 59 & .or. y2 .ne. z2) then |
61 call abort() | 60 STOP 1 |
62 endif | 61 endif |
63 | 62 |
64 end | 63 end |