From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-102297-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 12431 invoked by alias); 7 Jul 2004 09:33:09 -0000
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
Received: (qmail 12404 invoked by uid 48); 7 Jul 2004 09:33:06 -0000
Date: Wed, 07 Jul 2004 09:33:00 -0000
From: "jv244 at cam dot ac dot uk" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Message-ID: <20040707093303.16404.jv244@cam.ac.uk>
Reply-To: gcc-bugzilla@gcc.gnu.org
Subject: [Bug fortran/16404] New: [gfortran] should reject invalid code with -pedantic -std=f95 ? (x8)
X-Bugzilla-Reason: CC
X-SW-Source: 2004-07/txt/msg00592.txt.bz2
List-Id: <gcc-bugs.sourceware.org>

following programs should be rejected as invalid, either as a default, or
certainly with the above options

gcc version 3.5.0 20040628 (experimental)

! test 1
 DO I=1,5
    I=1
 ENDDO
 DO I=1,5
    READ(5,*) I
 ENDDO
 END

! test 2
 COMMON /BLOCKA/ A,B,C
 COMMON /BLOCKB/ D,E,F
 EQUIVALENCE(B,E)
END

! test 3
  REAL :: A
  REAL, TARGET :: B
  EQUIVALENCE(A,B)
END

! test 4
 write(6,*) ,2
 END

! test 5
PROGRAM
END

! test 6
MODULE TEST
  PRIVATE
  TYPE info_type
   INTEGER :: value
  END TYPE info_type
  TYPE all_type
    TYPE(info_type) :: info
  END TYPE
  PUBLIC :: all_type
END MODULE
END

! test 7
RETURN
END

! test 8
  TYPE data_type
    TYPE(data_type), POINTER :: next=>NULL()
    INTEGER :: i=0
  END TYPE data_type
  TYPE (data_type) :: A
  write(6,*) A
  END

-- 
           Summary: [gfortran] should reject invalid code with -pedantic -
                    std=f95 ? (x8)
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jv244 at cam dot ac dot uk
                CC: gcc-bugs at gcc dot gnu dot org


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