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
|