Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/pr67885.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do run } |
2 ! PR fortran/67885 | |
3 ! Original code contributed by Gerhard Steinmetz | |
4 ! gerhard dot steinmetz dot fortran at t-online dot de | |
5 program p | |
6 block | |
7 integer, parameter :: a(2) = [1, 2] | |
8 integer :: x(2) | |
9 x = a | |
131 | 10 if (x(1) /= 1) STOP 1 |
111 | 11 end block |
12 end |