gcc/testsuite/gfortran.dg/assumed_charlen_dummy.f90

   1 ! { dg-do compile }
   2 ! Test the fix for PR fortran/39893.
   3 ! Original testcase provided by Deji Akingunola.
   4 ! Reduced testcase provided by Dominique d'Humieres.
   5 !
   6       SUBROUTINE XAUTOGET()
   7       CHARACTER*(*) DICBA    ! { dg-error "Entity with assumed character" }
   8       DATA DICBA /"CLIP" /
   9       RETURN
  10       END