[Patch, Fortran, OOP] PR 44044: SELECT TYPE with class-valued function

[Janus Weil]

Hi all,

here is my fix for a problem with SELECT TYPE. It basically moves an
error message from parsing to resolution stage. For the test case in
the PR the checking came too early, since the function's interface is
not yet known when parsing the SELECT TYPE statement. As a consequence
of the moved error message, I had to slightly modify two testcases.

Btw, the patch only fixes comment #0 in the PR. I have started to work
on comments #1 to #3, but have not yet fixed them fully (will do
soon).

The patch was regtested on x86_64-unknown-linux-gnu. Ok for trunk?

Cheers,
Janus



2010-05-09  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/44044
	* match.c (gfc_match_select_type): Move error message to
	resolve_select_type.
	* resolve.c (resolve_select_type): Error message moved here from
	gfc_match_select_type. Correctly set type of temporary.


2010-05-09  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/44044
	* gfortran.dg/class_7.f03: Modified.
	* gfortran.dg/select_type_1.f03: Modified.
	* gfortran.dg/select_type_12.f03: New.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr44044.diff
Type: application/octet-stream
Size: 3110 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20100509/7bc1709f/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: select_type_12.f03
Type: application/octet-stream
Size: 708 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20100509/7bc1709f/attachment-0001.obj>