Sign in
llvm
/
llvm-test-suite
/
refs/tags/llvmorg-19.1.2
/
.
/
Fortran
/
gfortran
/
regression
/
charlen_15.f90
blob: 3401ff030f15d8330cd412bbd484ddfa7f82dfe5 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR fortran
/
78350
module
m
type t
character
(
2
)
::
c
(
1
)
=
[
character
(
3
)
::
'abc'
]
end
type
type
(
t
)
::
x
end
program foo
use
m
if
(
trim
(
x
%
c
(
1
))
/=
'ab'
)
STOP
1
end
program foo
