[Bug fortran/58857] New: [OOP] CLASS wrongly rejected in BLOCK DATA

[burnus at gcc dot gnu.org]

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

            Bug ID: 58857
           Summary: [OOP] CLASS wrongly rejected in BLOCK DATA
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Keywords: rejects-valid
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: burnus at gcc dot gnu.org

Found when working on PR 44350.

The following code is rejected by gfortran, but it seems to be valid:

BLOCK DATA valid
  class(*) :: zz
  pointer :: zz
END BLOCK DATA valid


gfortran prints 4 times the bogus:
  pointer :: zz
               1
Error: PRIVATE attribute not allowed in BLOCK DATA program unit at (1)