[Bug fortran/16404] New: [gfortran] should reject invalid code with -pedantic -std=f95 ? (x8)

["jv244 at cam dot ac dot uk" <gcc-bugzilla@gcc.gnu.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