repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
PR ipa/83051
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr67524.f90
blob
6f5440f328f9a825261237fddb25a2b3d237bd4b
1
! { dg-do run }
2
module
m
3
implicit character
(
8
) (
a
-
z
)
4
contains
5
function
f
(
x
)
6
integer
::
x
7
integer
::
f
8
real
::
e
9
f
=
x
10
return
11
entry
e
(
x
)
12
e
=
x
13
end
14
end module
15
16
program
p
17
use
m
18
if
(
f
(
1
) /=
1
)
call
abort
19
if
(
e
(
1
) /=
1.0
)
call
abort
20
end