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