[Bug fortran/21434] New: blanket save after other save statements triggers error

[joe at confucius dot gnacademy dot org]

Including a blanket save after other state statements triggers error in
gfortran.  It doesn't in Intel Fortran.

This could be annoying when you have a subroutine with includes to common 
blocks.

[joe@localhost ~]$ cat test1.F
      subroutine net
      implicit real*8(a-h,o-z)
      save    /keyeosc/
      common  /keyeosc/  jzone,keyeos,keycoul,kesfail,nupress,ntryeos
      save    /eossub/
      common  /eossub/ eossubf
      character eossubf*10
      logical bad,fmbad
      save
      end

[joe@localhost ~]$ ifort -c test1.F
[joe@localhost ~]$ gfortran -c test1.F
 In file test1.F:9

      save
                                                                       1
Error: Blanket SAVE statement at (1) follows previous SAVE statement
[joe@localhost ~]$

-- 
           Summary: blanket save after other save statements triggers error
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: joe at confucius dot gnacademy dot org
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i586-mandrake-linux-gnu
  GCC host triplet: i586-mandrake-linux-gnu
GCC target triplet: i586-mandrake-linux-gnu


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21434