diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2009-06-27 00:11:15 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2009-06-27 00:11:15 +0200 |
| commit | fc9c6e5d64f4dbdc1f7a53a4fa14ddc3f124f165 (patch) | |
| tree | a011c58836777edcbf0334f314676e4eccd1a4bf /gcc/fortran/decl.c | |
| parent | 9833720d3bf1e5adf2319bb480b882dad8060182 (diff) | |
| download | gcc-fc9c6e5d64f4dbdc1f7a53a4fa14ddc3f124f165.zip gcc-fc9c6e5d64f4dbdc1f7a53a4fa14ddc3f124f165.tar.gz gcc-fc9c6e5d64f4dbdc1f7a53a4fa14ddc3f124f165.tar.bz2 | |
re PR fortran/39997 (Procedure(), pointer & implicit typing: rejects-valid / accepts-invalid?)
2009-06-26 Janus Weil <janus@gcc.gnu.org>
PR fortran/39997
PR fortran/40541
* decl.c (add_hidden_procptr_result): Copy the typespec to the hidden
result.
* expr.c (gfc_check_pointer_assign): Enable interface check for
procedure pointer assignments where the rhs is a function returning a
procedure pointer.
* resolve.c (resolve_symbol): If an external procedure with unspecified
return type can not be implicitly typed, it must be a subroutine.
2009-06-26 Janus Weil <janus@gcc.gnu.org>
PR fortran/39997
PR fortran/40541
* gfortran.dg/proc_ptr_15.f90: Fixed and extended.
* gfortran.dg/proc_ptr_common_1.f90: Fixed invalid test case.
* gfortran.dg/proc_ptr_result_1.f90: Ditto.
* gfortran.dg/proc_ptr_result_5.f90: New.
From-SVN: r148996
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 021392d..179d1e2 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -4117,6 +4117,7 @@ add_hidden_procptr_result (gfc_symbol *sym) sym->result->attr.pointer = sym->attr.pointer; sym->result->attr.external = sym->attr.external; sym->result->attr.referenced = sym->attr.referenced; + sym->result->ts = sym->ts; sym->attr.proc_pointer = 0; sym->attr.pointer = 0; sym->attr.external = 0; |