diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-04-12 10:46:30 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-04-12 10:46:30 +0200 |
| commit | d51347f96ce3765c6fad1c4e50c2b911e350339f (patch) | |
| tree | 755477f23d921c3c54dc432a7c6885bbc8a94363 /libcpp | |
| parent | 8c5e065b53c2a1e2ec1351654939891f52a102b4 (diff) | |
| download | gcc-d51347f96ce3765c6fad1c4e50c2b911e350339f.zip gcc-d51347f96ce3765c6fad1c4e50c2b911e350339f.tar.gz gcc-d51347f96ce3765c6fad1c4e50c2b911e350339f.tar.bz2 | |
re PR fortran/31472 (gfortran does not detect the illegal use of an access specification in a program, subroutine, or function)
2007-04-12 Tobias Burnus <burnus@net-b.de>
PR fortran/31472
* decl.c (match_attr_spec): Allow PRIVATE/PUBLIC
attribute in type definitions.
(gfc_match_private): Allow PRIVATE statement only
in specification part of modules.
(gfc_match_public): Ditto for PUBLIC.
(gfc_match_derived_decl): Allow PRIVATE/PUBLIC attribute only in
specificification part of modules.
2007-04-12 Tobias Burnus <burnus@net-b.de>
PR fortran/31472
* gfortran.dg/access_spec_1.f90: New test.
* gfortran.dg/access_spec_2.f90: New test.
* gfortran.dg/non_module_public.f90: Match new error message.
From-SVN: r123735
Diffstat (limited to 'libcpp')
0 files changed, 0 insertions, 0 deletions