Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/init_flag_7.f90 @ 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 |
---|---|
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 |