repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
./:
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
dup_save_2.f90
blob
1c0bfdbe554470ecee508a099623a4d43c456919
1
! { dg-do compile }
2
! { dg-options "-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