11 lines
315 B
Fortran
11 lines
315 B
Fortran
|
! { dg-do compile }
|
||
|
! Test the fix for PR fortran/39893.
|
||
|
! Original testcase provided by Deji Akingunola.
|
||
|
! Reduced testcase provided by Dominique d'Humieres.
|
||
|
!
|
||
|
SUBROUTINE XAUTOGET()
|
||
|
CHARACTER*(*) DICBA ! { dg-error "Entity with assumed character" }
|
||
|
DATA DICBA /"CLIP" /
|
||
|
RETURN
|
||
|
END
|