Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/dup_save_2.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
comparison
equal
deleted
inserted
replaced
68:561a7518be6b | 111:04ced10e8804 |
---|---|
1 ! { dg-do compile } | |
2 ! { dg-options "-fall-intrinsics -std=f95" } | |
3 program save_2 | |
4 implicit none | |
5 integer i | |
6 integer foo1, foo2, foo3, foo4 | |
7 do i=1,10 | |
8 if (foo1().ne.i) then | |
9 call abort | |
10 end if | |
11 if (foo2().ne.i) then | |
12 call abort | |
13 end if | |
14 if (foo3().ne.i) then | |
15 call abort | |
16 end if | |
17 if (foo4().ne.i) then | |
18 call abort | |
19 end if | |
20 end do | |
21 end program save_2 | |
22 | |
23 integer function foo1 () | |
24 integer j | |
25 save | |
26 save ! { dg-error "Blanket SAVE" } | |
27 data j /0/ | |
28 j = j + 1 | |
29 foo1 = j | |
30 end function foo1 | |
31 | |
32 integer function foo2 () | |
33 integer j | |
34 save j | |
35 save j ! { dg-error "Duplicate SAVE" } | |
36 data j /0/ | |
37 j = j + 1 | |
38 foo2 = j | |
39 end function foo2 | |
40 | |
41 integer function foo3 () | |
42 integer j | |
43 save | |
44 save j ! { dg-error "SAVE statement" } | |
45 data j /0/ | |
46 j = j + 1 | |
47 foo3 = j | |
48 end function foo3 | |
49 | |
50 integer function foo4 () | |
51 integer j ! { dg-error "Duplicate SAVE" } | |
52 save j | |
53 save | |
54 data j /0/ | |
55 j = j + 1 | |
56 foo4 = j | |
57 end function foo4 |