OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/55362 (ICE with size() on character pointer) 

2013-03-10  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/55362
	* check.c (array_check): It is an error if a procedure is
	passed.

2013-03-10  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/55362
	* gfortran.dg/intrinsic_size_4.f90 : New test.

From-SVN: r196582
This commit is contained in:
Paul Thomas 2013-03-10 18:34:24 +00:00
parent 66ee448c46
commit ceca62b8bf
4 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2013-03-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/55362
* check.c (array_check): It is an error if a procedure is
passed.
2013-02-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/56385

2
gcc/fortran/check.c
View File

@ -256,7 +256,7 @@ array_check (gfc_expr *e, int n)
return SUCCESS;
}
if (e->rank != 0)
if (e->rank != 0 && e->ts.type != BT_PROCEDURE)
return SUCCESS;
gfc_error ("'%s' argument of '%s' intrinsic at %L must be an array",

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2013-03-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/55362
* gfortran.dg/intrinsic_size_4.f90 : New test.
2013-03-09 Paolo Carlini <paolo.carlini@oracle.com>
PR c++/56534

18
gcc/testsuite/gfortran.dg/intrinsic_size_4.f90 Normal file
View File

@ -0,0 +1,18 @@
! { dg-do compile }
! Test the fix for PR55362; the error below was missed and an ICE ensued.
!
! ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
!
program ice_test
implicit none
write(*,*) 'message: ', &
size(Error_Msg),Error_Msg() ! { dg-error "must be an array" }
write(*,*) 'message: ', &
size(Error_Msg ()),Error_Msg() ! OK of course
contains
function Error_Msg() result(ErrorMsg)
character, dimension(:), pointer :: ErrorMsg
character, dimension(1), target :: str = '!'
ErrorMsg => str
end function Error_Msg
end program ice_test