mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-04 20:01:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/36167 (ICE in gfc_conv_descriptor_dimension, at fortran/trans-array.c:242)

Browse Source 
2008-09-08  Daniel Kraft  <d@domob.eu>

        PR fortran/36167
        * gfortran.dg/array_function_3.f90: New test.
        * gfortran.dg/save_3.f90: Added cleanup-modules directive.
        * gfortran.dg/string_compare_1.f90: Ditto.

From-SVN: r140107
This commit is contained in:
Daniel Kraft 2008-09-08 15:51:26 +02:00 committed by Daniel Kraft
parent 37aaba15f3
commit 94c8a0cca5
4 changed files with 59 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2008-09-08 Daniel Kraft <d@domob.eu>
PR fortran/36167
* gfortran.dg/array_function_3.f90: New test.
* gfortran.dg/save_3.f90: Added cleanup-modules directive.
* gfortran.dg/string_compare_1.f90: Ditto.
2008-09-08 Daniel Kraft <d@domob.eu>
PR fortran/37199

48
gcc/testsuite/gfortran.dg/array_function_3.f90 Normal file
View File

@ -0,0 +1,48 @@
! { dg-do compile }
! PR fortran/36167
! This used to cause an ICE because of a missing array spec after interface
! mapping.
! Contributed by Frank Muldoon <fmuldoo@me.lsu.edu>
module communication_tools
contains
!*******************************************************************************
function overlap_1(u,lbound_u,ubound_u)
!*******************************************************************************
integer, intent(in), dimension(:) :: lbound_u,ubound_u
real, intent(in), dimension(lbound_u(1):ubound_u(1),lbound_u(2):ubound_u(2),&
lbound_u(3):ubound_u(3)) :: u
real, dimension(&
lbound(u,1):ubound(u,1),&
lbound(u,2):ubound(u,2),&
lbound(u,3):ubound(u,3)) :: overlap_1
return
end function overlap_1
end module communication_tools
!*******************************************************************************
subroutine write_out_particles
!*******************************************************************************
use communication_tools
real, dimension(1:5, 2:4, 3:10) :: vorticityMag
real, allocatable, dimension(:,:,:) :: temp3d
allocate(temp3d( &
lbound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),1):&
ubound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),1),&
lbound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),2):&
ubound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),2),&
lbound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),3):&
ubound(overlap_1(vorticityMag,lbound(vorticityMag),ubound(vorticityMag)),3)))
return
end subroutine write_out_particles
! { dg-final { cleanup-modules "communication_tools" } }

2
gcc/testsuite/gfortran.dg/save_3.f90
View File

@ -14,3 +14,5 @@ pure function tell_i() result (answer)
answer=i
end function tell_i
end module g95bug
! { dg-final { cleanup-modules "g95bug" } }

2
gcc/testsuite/gfortran.dg/string_compare_2.f90
View File

@ -35,3 +35,5 @@ program pack_bug
end if
end do
end
! { dg-final { cleanup-modules "xparams" } }