old-autovect-branch/gcc/testsuite/gfortran.dg/dup_save_1.f90

   1 ! { dg-do run }
   2 program save_1
   3   implicit none
   4   integer i
   5   integer foo1, foo2, foo3, foo4
   6   do i=1,10
   7      if (foo1().ne.i) then
   8         call abort
   9      end if
  10      if (foo2().ne.i) then
  11         call abort
  12      end if
  13      if (foo3().ne.i) then
  14         call abort
  15      end if
  16      if (foo4().ne.i) then
  17         call abort
  18      end if
  19   end do
  20 end program save_1
  21
  22 integer function foo1
  23   integer j
  24   save
  25   save ! { dg-warning "Blanket SAVE" }
  26   data j /0/
  27   j = j + 1
  28   foo1 = j
  29 end function foo1
  30
  31 integer function foo2
  32   integer j
  33   save j
  34   save j ! { dg-warning "Duplicate SAVE" }
  35   data j /0/
  36   j = j + 1
  37   foo2 = j
  38 end function foo2
  39
  40 integer function foo3
  41   integer j ! { dg-warning "Duplicate SAVE" }
  42   save
  43   save j ! { dg-warning "SAVE statement" }
  44   data j /0/
  45   j = j + 1
  46   foo3 = j
  47 end function foo3
  48
  49 integer function foo4
  50   integer j ! { dg-warning "Duplicate SAVE" }
  51   save j
  52   save
  53   data j /0/
  54   j = j + 1
  55   foo4 = j
  56 end function foo4
  57