Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/host_dummy_index_1.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Tests the fix for PR23446. Based on PR example. ! Contributed by Paul Thomas <pault@gcc.gnu.org> ! ! Tests furthermore the fix for PR fortran/29916. ! Test contributed by Marco Restelli <mrestelli@gmail.com> ! PROGRAM TST INTEGER IMAX INTEGER :: A(4) = 1 IMAX=2 CALL S(A) CALL T(A) CALL U(A) if ( ALL(A.ne.(/2,2,3,4/))) STOP 1 if ( ALL(F().ne.(/2.0,2.0/))) STOP 2 CONTAINS SUBROUTINE S(A) INTEGER A(IMAX) a = 2 END SUBROUTINE S SUBROUTINE T(A) INTEGER A(3:IMAX+4) A(5:IMAX+4) = 3 END SUBROUTINE T SUBROUTINE U(A) INTEGER A(2,IMAX) A(2,2) = 4 END SUBROUTINE U FUNCTION F() real :: F(IMAX) F = 2.0 END FUNCTION F ENDPROGRAM TST