This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/58857] New: [OOP] CLASS wrongly rejected in BLOCK DATA
- From: "burnus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Wed, 23 Oct 2013 21:31:19 +0000
- Subject: [Bug fortran/58857] New: [OOP] CLASS wrongly rejected in BLOCK DATA
- Auto-submitted: auto-generated
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)