]> git.ipfire.org Git - thirdparty/gcc.git/commit - gcc/fortran/primary.c
re PR fortran/42048 ([F03] Erroneous syntax error message on TBP call)
authorJanus Weil <janus@gcc.gnu.org>
Thu, 26 Nov 2009 19:01:02 +0000 (20:01 +0100)
committerJanus Weil <janus@gcc.gnu.org>
Thu, 26 Nov 2009 19:01:02 +0000 (20:01 +0100)
commit2d71b918d494015f467023d3ee4596b3c887d4b8
tree514b39dc8ae626e9d48ee49c59406a249bd6050c
parent90dcfecb47a75e10277dcdd44aeb39267d251f36
re PR fortran/42048 ([F03] Erroneous syntax error message on TBP call)

2009-11-26  Janus Weil  <janus@gcc.gnu.org>

PR fortran/42048
PR fortran/42167
* gfortran.h (gfc_is_function_return_value): New prototype.
* match.c (gfc_match_call): Use new function
'gfc_is_function_return_value'.
* primary.c (gfc_is_function_return_value): New function to check if a
symbol is the return value of an encompassing function.
(match_actual_arg,gfc_match_rvalue,match_variable): Use new function
'gfc_is_function_return_value'.
* resolve.c (resolve_common_blocks,resolve_actual_arglist): Ditto.

2009-11-26  Janus Weil  <janus@gcc.gnu.org>

PR fortran/42048
PR fortran/42167
* gfortran.dg/select_type_10.f03: New test case.
* gfortran.dg/typebound_call_11.f03: Extended test case.

From-SVN: r154679
gcc/fortran/ChangeLog
gcc/fortran/gfortran.h
gcc/fortran/match.c
gcc/fortran/primary.c
gcc/fortran/resolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/select_type_10.f03 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/typebound_call_11.f03