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

re PR fortran/44135 (Negative array bounds lead to spurious warning)

Browse Source 
2010-05-14  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/44135
	* gfortran.dg/actual_array_interface_2.f90: New test.

2010-05-14  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/44135
	* fortran/interface.c (get_sym_storage_size): Use signed instead of
	unsigned mpz_get_?i routines.

From-SVN: r159415
This commit is contained in:
Steven G. Kargl 2010-05-14 21:02:26 +00:00
parent c4e64f39d9
commit c13af44bcc
4 changed files with 26 additions and 2 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 @@
2010-05-14 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/44135
* fortran/interface.c (get_sym_storage_size): Use signed instead of
unsigned mpz_get_?i routines.
2010-05-14 Jakub Jelinek <jakub@redhat.com>
* trans.c (trans_code): Set backend locus early.

4
gcc/fortran/interface.c
View File

@ -1645,8 +1645,8 @@ get_sym_storage_size (gfc_symbol *sym)
|| sym->as->lower[i]->expr_type != EXPR_CONSTANT)
return 0;
elements *= mpz_get_ui (sym->as->upper[i]->value.integer)
- mpz_get_ui (sym->as->lower[i]->value.integer) + 1L;
elements *= mpz_get_si (sym->as->upper[i]->value.integer)
- mpz_get_si (sym->as->lower[i]->value.integer) + 1L;
}
return strlen*elements;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-05-14 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/44135
* gfortran.dg/actual_array_interface_2.f90: New test.
2010-05-14 Richard Guenther <rguenther@suse.de>
PR tree-optimization/44119

13
gcc/testsuite/gfortran.dg/actual_array_interface_2.f90 Normal file
View File

@ -0,0 +1,13 @@
! { dg-do compile }
program gprogram
implicit none
real, dimension(-2:0) :: my_arr
call fill_array(my_arr)
contains
subroutine fill_array(arr)
implicit none
real, dimension(-2:0), intent(out) :: arr
arr = 42
end subroutine fill_array
end program gprogram