gcc/testsuite/gfortran.dg/array_constructor_42.f90

   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