Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
iso_c_binding_char_1.f90
blob: ebf9a248dacc2bb97d04c3389c9e0801ca22d54c [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
Test
the fix
for
PR90352
.
!
!
Contributed
by
Thomas
Koenig
<
tkoenig@gcc
.
gnu
.
org
>
!
subroutine bar
(
c
,
d
)
BIND
(
C
)
!
{
dg
-
error
"must be length 1"
}
character
(
len
=*)
c
character
(
len
=
2
)
d
end