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
11