Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
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