Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/init_flag_7.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 (2018-10-25)
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
15 integer :: i1 = -100 15 integer :: i1 = -100
16 integer i2 16 integer i2
17 integer i3 17 integer i3
18 save i2 18 save i2
19 if (first) then 19 if (first) then
20 if (i1 .ne. -100) call abort 20 if (i1 .ne. -100) STOP 1
21 if (i2 .ne. 101) call abort 21 if (i2 .ne. 101) STOP 2
22 if (i3 .ne. 101) call abort 22 if (i3 .ne. 101) STOP 3
23 else 23 else
24 if (i1 .ne. 1001) call abort 24 if (i1 .ne. 1001) STOP 4
25 if (i2 .ne. 1002) call abort 25 if (i2 .ne. 1002) STOP 5
26 if (i3 .ne. 101) call abort 26 if (i3 .ne. 101) STOP 6
27 end if 27 end if
28 i1 = 1001 28 i1 = 1001
29 i2 = 1002 29 i2 = 1002
30 i3 = 1003 30 i3 = 1003
31 end subroutine save_test1 31 end subroutine save_test1
34 logical first 34 logical first
35 integer :: i1 = -100 35 integer :: i1 = -100
36 integer i2 36 integer i2
37 save 37 save
38 if (first) then 38 if (first) then
39 if (i1 .ne. -100) call abort 39 if (i1 .ne. -100) STOP 7
40 if (i2 .ne. 101) call abort 40 if (i2 .ne. 101) STOP 8
41 else 41 else
42 if (i1 .ne. 1001) call abort 42 if (i1 .ne. 1001) STOP 9
43 if (i2 .ne. 1002) call abort 43 if (i2 .ne. 1002) STOP 10
44 end if 44 end if
45 i1 = 1001 45 i1 = 1001
46 i2 = 1002 46 i2 = 1002
47 end subroutine save_test2 47 end subroutine save_test2