Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr87945_2.f90
blob: 952772ddc038bc07903e5a4f94fe5cea300bfdcb [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
87945
program p
character
::
a
,
b
a
%
len
=
1
!
{
dg
-
error
"to a constant expression"
}
b
%
kind
=
'b'
!
{
dg
-
error
"to a constant expression"
}
end