Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/array_constructor_42.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR fortran/54730 ! A symbol 'a' was created while attempting to parse a typespec in the array ! constructor. That (invalid) symbol was kept until translation stage ! where it was leading to an ICE. ! ! Original testcase from Paul Kapinos <kapinos@rz.rwth-aachen.de> ! subroutine s implicit none intrinsic :: real real :: vec(1:2) vec = (/ real(a = 1), 1. /) end subroutine s program main implicit none intrinsic :: real print *,(/ real(a = 1) /) end