[Bug fortran/34658] New: save / common

[Bug fortran/34658] New: save / common

[jv244 at cam dot ac dot uk]

The following is non-standard and the compiler should probably generate a
warning/error with '-pedantic -std=f95', but does not do so with
gcc version 4.3.0 20080103 (experimental) [trunk revision 131300] (GCC) 

  COMMON /A/ I
  INTEGER :: I=1
  END


-- 
           Summary: save / common
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jv244 at cam dot ac dot uk


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

[Bug fortran/34658] save / common

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2008-01-04 07:26 -------
NAG f95:
Error: I is in COMMON - can only initialise in BLOCK DATA

ifort with "-stand f95" (only):
Warning: In Fortran 95, this DATA statement object cannot appear in either a
blank COMMON block or a named COMMON block.   [I]


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2008-01-04 07:26:43
               date|                            |


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

[Bug fortran/34658] save / common

[burnus at gcc dot gnu dot org]

------- Comment #2 from burnus at gcc dot gnu dot org  2008-01-06 16:20 -------
Patch: http://gcc.gnu.org/ml/gcc-patches/2008-01/msg00200.html


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |burnus at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2008-01-04 07:26:43         |2008-01-06 16:20:45
               date|                            |


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

[Bug fortran/34658] save / common

[burnus at gcc dot gnu dot org]

------- Comment #3 from burnus at gcc dot gnu dot org  2008-01-06 18:17 -------
FIXED on the trunk (4.3.0).

Thanks for the bug report!


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


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

[Bug fortran/34658] save / common

[burnus at gcc dot gnu dot org]

------- Comment #4 from burnus at gcc dot gnu dot org  2008-01-06 18:17 -------
Subject: Bug 34658

Author: burnus
Date: Sun Jan  6 18:17:14 2008
New Revision: 131355

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=131355
Log:
2007-01-06  Tobias Burnus  <burnus@net-b.de>

        PR fortran/34658
        * match.c (gfc_match_common): Remove blank common in
        DATA BLOCK warning.
        * resolve.c (resolve_common_vars): New function.
        (resolve_common_blocks): Move checks to resolve_common_vars
        and invoke that function.
        (resolve_types): Call resolve_common_vars for blank commons.

2007-01-06  Tobias Burnus  <burnus@net-b.de>

        PR fortran/34658
        * gfortran.dg/common_11.f90: New.
        * gfortran.dg/blockdata_1.f90: Update test case.
        * gfortran.dg/blockdata_2.f90: Update test case.


Added:
    trunk/gcc/testsuite/gfortran.dg/common_11.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/match.c
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/blockdata_1.f90
    trunk/gcc/testsuite/gfortran.dg/blockdata_2.f90


-- 


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