Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/array_constructor_42.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do compile } |
2 ! | |
3 ! PR fortran/54730 | |
4 ! A symbol 'a' was created while attempting to parse a typespec in the array | |
5 ! constructor. That (invalid) symbol was kept until translation stage | |
6 ! where it was leading to an ICE. | |
7 ! | |
8 ! Original testcase from Paul Kapinos <kapinos@rz.rwth-aachen.de> | |
9 ! | |
10 | |
11 subroutine s | |
12 implicit none | |
13 intrinsic :: real | |
14 real :: vec(1:2) | |
15 vec = (/ real(a = 1), 1. /) | |
16 end subroutine s | |
17 | |
18 program main | |
19 implicit none | |
20 intrinsic :: real | |
21 print *,(/ real(a = 1) /) | |
22 end |