Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dim_sum_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 } ! { dg-shouldfail "Dim argument incorrect in SUM intrinsic: is 5, should be between 1 and 2" } program summation integer, parameter :: n1=5, n2=7 integer, dimension(1:n1,1:n2) :: arr integer, dimension(1:n1) :: r2 integer, dimension(1:n2) :: r1 integer :: i,j character(len=80) :: c1, c2 character(len=50) :: fmt = '(10I5)' do j=1,n2 do i=1,n1 arr(i,j) = i+j*10 end do end do r1 = sum(arr,dim=1) write (unit=c2, fmt=fmt) r1 call print_sum(1,c1) if (c1 /= c2) STOP 1 r2 = sum(arr,dim=2) write (unit=c2, fmt=fmt) r2 call print_sum(2,c1) if (c1 /= c2) STOP 2 call print_sum(5,c1) contains subroutine print_sum(d, c) integer, intent(in) :: d character(len=80), intent(out) :: c write (unit=c, fmt=fmt) sum(arr,dim=d) end subroutine end