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

re PR fortran/54788 (ICE on pointer-array element assignment)

Browse Source 
2013-07-01  Dominique d'Humieres  <dominiq@lps.ens.fr>

        PR fortran/54788
        * array.c (spec_size): handle the case as==NULL.

2013-07-01  Dominique d'Humieres  <dominiq@lps.ens.fr>

        PR fortran/54788
        * gfortran.dg/pointer_remapping_8.f90: New.

From-SVN: r200575
This commit is contained in:
Dominique d'Humieres 2013-07-01 09:53:55 +02:00 committed by Tobias Burnus
parent 9cd5e6c594
commit 81bcd96bc7
4 changed files with 26 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2013-07-01 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/54788
* array.c (spec_size): handle the case as==NULL.
2013-06-26 Tobias Burnus <burnus@net-b.de>
PR fortran/29800

2
gcc/fortran/array.c
View File

@ -2084,7 +2084,7 @@ spec_size (gfc_array_spec *as, mpz_t *result)
mpz_t size;
int d;
if (as->type == AS_ASSUMED_RANK)
if (!as || as->type == AS_ASSUMED_RANK)
return false;
mpz_init_set_ui (*result, 1);

15
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2013-07-01 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/54788
* gfortran.dg/pointer_remapping_8.f90: New.
2013-06-28 Ed Smith-Rowland <3dw4rd@verizon.net>
* g++.dg/cpp0x/udlit-nospace-neg.C: Adjust.
@ -38,11 +43,11 @@
2013-06-28 Kirill Yukhin <kirill.yukhin@intel.com>
* gcc.target/i386/bmi-1.c: Extend with new instrinsic.
Fix scan patterns.
* gcc.target/i386/bmi-1.c: Ditto.
* gcc.target/i386/bmi-bextr-4.c: New.
* gcc.target/i386/bmi-bextr-5.c: Ditto.
* gcc.target/i386/bmi-1.c: Extend with new instrinsic.
Fix scan patterns.
* gcc.target/i386/bmi-1.c: Ditto.
* gcc.target/i386/bmi-bextr-4.c: New.
* gcc.target/i386/bmi-bextr-5.c: Ditto.
2013-06-28 Paolo Carlini <paolo.carlini@oracle.com>

10
gcc/testsuite/gfortran.dg/pointer_remapping_8.f90 Normal file
View File

@ -0,0 +1,10 @@
! { dg-do compile }
!
! PR 54788 ICE on pointer-array element assignment
!
program bug
integer, pointer :: a(:)
integer :: b
allocate(a(0:0))
a(0:0) => b ! { dg-error "Rank remapping target must be rank 1 or simply contiguous" }
end