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