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         STOP 1
   9      end if
  10      if (foo2().ne.i) then
  11         STOP 2
  12      end if
  13      if (foo3().ne.i) then
  14         STOP 3
  15      end if
  16      if (foo4().ne.i) then
  17         STOP 4
  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