diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-04-16 22:54:21 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-04-16 22:54:21 +0200 |
| commit | e7ac6a7cebc7af45319ac1b88d3f6071f0fed49e (patch) | |
| tree | ae48f47ebf76afba5e32eeb6ff8fdc0fcb516a97 /gcc/fortran/decl.c | |
| parent | bafa0782ad3ba8e5c92196b00d76b38d69e3e1e1 (diff) | |
| download | gcc-e7ac6a7cebc7af45319ac1b88d3f6071f0fed49e.zip gcc-e7ac6a7cebc7af45319ac1b88d3f6071f0fed49e.tar.gz gcc-e7ac6a7cebc7af45319ac1b88d3f6071f0fed49e.tar.bz2 | |
re PR fortran/39505 (Consider a 'no arg check' directive)
2013-04-12 Tobias Burnus <burnus@net-b.de>
PR fortran/39505
* decl.c (ext_attr_list): Add EXT_ATTR_NO_ARG_CHECK.
* gfortran.h (ext_attr_id_t): Ditto.
* gfortran.texi (GNU Fortran Compiler Directives):
Document it.
* interface.c (compare_type_rank): Ignore rank for NO_ARG_CHECK.
(compare_parameter): Ditto - and regard as unlimited polymorphic.
* resolve.c (resolve_symbol, resolve_variable): Add same
* constraint
checks as for TYPE(*); turn dummy to TYPE(*),dimension(*).
(gfc_explicit_interface_required): Require explicit interface
for NO_ARG_CHECK.
2013-04-12 Tobias Burnus <burnus@net-b.de>
PR fortran/39505
* gfortran.dg/no_arg_check_1.f90: New.
* gfortran.dg/no_arg_check_2.f90: New.
* gfortran.dg/no_arg_check_3.f90: New.
From-SVN: r198011
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index ffaa65d..f9891c9 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -8572,12 +8572,13 @@ gfc_match_final_decl (void) const ext_attr_t ext_attr_list[] = { - { "dllimport", EXT_ATTR_DLLIMPORT, "dllimport" }, - { "dllexport", EXT_ATTR_DLLEXPORT, "dllexport" }, - { "cdecl", EXT_ATTR_CDECL, "cdecl" }, - { "stdcall", EXT_ATTR_STDCALL, "stdcall" }, - { "fastcall", EXT_ATTR_FASTCALL, "fastcall" }, - { NULL, EXT_ATTR_LAST, NULL } + { "dllimport", EXT_ATTR_DLLIMPORT, "dllimport" }, + { "dllexport", EXT_ATTR_DLLEXPORT, "dllexport" }, + { "cdecl", EXT_ATTR_CDECL, "cdecl" }, + { "stdcall", EXT_ATTR_STDCALL, "stdcall" }, + { "fastcall", EXT_ATTR_FASTCALL, "fastcall" }, + { "no_arg_check", EXT_ATTR_NO_ARG_CHECK, NULL }, + { NULL, EXT_ATTR_LAST, NULL } }; /* Match a !GCC$ ATTRIBUTES statement of the form: |