Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/array_function_3.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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