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