diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/dup_save_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dup_save_1.f90 | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/dup_save_1.f90 b/gcc/testsuite/gfortran.dg/dup_save_1.f90 new file mode 100644 index 000000000..7f22b62d1 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/dup_save_1.f90 @@ -0,0 +1,57 @@ +! { dg-do run } +program save_1 + implicit none + integer i + integer foo1, foo2, foo3, foo4 + do i=1,10 + if (foo1().ne.i) then + call abort + end if + if (foo2().ne.i) then + call abort + end if + if (foo3().ne.i) then + call abort + end if + if (foo4().ne.i) then + call abort + end if + end do +end program save_1 + +integer function foo1 () + integer j + save + save ! { dg-warning "Blanket SAVE" } + data j /0/ + j = j + 1 + foo1 = j +end function foo1 + +integer function foo2 () + integer j + save j + save j ! { dg-warning "Duplicate SAVE" } + data j /0/ + j = j + 1 + foo2 = j +end function foo2 + +integer function foo3 () + integer j ! { dg-warning "Duplicate SAVE" } + save + save j ! { dg-warning "SAVE statement" } + data j /0/ + j = j + 1 + foo3 = j +end function foo3 + +integer function foo4 () + integer j ! { dg-warning "Duplicate SAVE" } + save j + save + data j /0/ + j = j + 1 + foo4 = j +end function foo4 + |