gcc/testsuite/gfortran.dg/pr103471.f90

   1 ! { dg-do compile }
   2 ! Test the fix for PR103471 in which, rather than giving a "no IMPLICIT type"
   3 ! message, gfortran took to ICEing. The fuzzy symbol check for 'kk' demonstrates
   4 ! that the error is being detected at the right place.
   5 !
   6 ! Contributed by Gerhard Steinmetz  <gscfq@t-online.de>
   7 !
   8 program p
   9    implicit none
  10    integer, parameter :: x(4) = [1,2,3,4]
  11    real, external :: y
  12    integer :: kk
  13    print *, [real(y(l))] ! { dg-error "has no IMPLICIT type" }
  14    print *, [real(x(k))] ! { dg-error "has no IMPLICIT type; did you mean .kk.\\?" }
  15 ! This silently suppresses the error in the previous line. With the line before
  16 ! commented out, the error occurs in trans-decl.cc.
  17 !   print *, [real(y(k))]
  18 end