Sign in
gnu
/
gcc
/
04a040d907a83af54e0a98bdba5bfabc0ef4f700
/
.
/
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