comparison gcc/testsuite/gfortran.dg/assumed_rank_18.f90 @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 ! { dg-do run }
2 ! PR 91643 - this used to cause an ICE.
3 ! Original test case by Gerhard Steinmetz.
4 program p
5 real :: z(3) = [1.0, 2.0, 3.0]
6 call g(z)
7 contains
8 subroutine g(x)
9 real :: x(..)
10 call h(x)
11 end
12 subroutine h(x)
13 real :: x(*)
14 if (x(1) /= 1.0) stop 1
15 end
16 end