Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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