Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/zero_sized_10.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do compile } ! { PR 85111 - this used to ICE. } ! Original test case by Gernhard Steinmetz. program p integer, parameter :: a(2,0) = reshape([1,2,3,4], shape(a)) character, parameter :: ac(2,0) = reshape(['a','b','c','d'], shape(ac)) integer, parameter :: b(2) = maxloc(a, dim=1) ! { dg-error "Different shape" } integer, parameter :: c(2) = minloc(a, dim=1) ! { dg-error "Different shape" } character, parameter :: d(2) = maxval(ac, dim=1) ! { dg-error "Different shape" } end program p