Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/stabilize-6812.41.B
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
lto
/
pr60635_0.f90
blob: e121879859003846bb83f0a4127d22c153d260a9 [
file
] [
log
] [
blame
]
!
{
dg
-
lto
-
do
link
}
program test
use
iso_fortran_env
interface
integer
(
int16
)
function
bigendc16
(
x
)
bind
(
C
)
import
integer
(
int16
),
intent
(
in
)
::
x
end
function
end
interface
integer
(
int16
)
::
x16
=
12345
x16
=
bigendc16
(
x16
)
print
*,
x16
end
program