[patch, fortran] Fix PR 44693

[Thomas Koenig]

Hello world,

the attached patch fixes PR 44693.

During regression-testing, there was a failure of
dynamic_dispatch_6.f03 at higher optimization levels.  I *think* that
this is not related to this patch, but I would appreciate if the
reviewer would check for that.  Of course, if this turns out to really
cause a regression or expose a latent bug, I don't want to commit this.

OK for trunk?

	Thomas

2010-07-04  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/PR44693
	* check.c (dim_rank_check):  Also check intrinsic functions.
	Adjust permissible rank for functions which reduce the rank of
	their argument.

	PR fortran/PR44693
	* dim_range_1.f90:  New test.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr44693.diff
Type: text/x-patch
Size: 1049 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20100704/b477cebb/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: dim_range_1.f90
Type: text/x-fortran
Size: 343 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20100704/b477cebb/attachment-0001.bin>