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
* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
format_string.f
blob
ff0b5388ce92075523970648297d0a56fdb69e3b
1
c { dg-do compile }
2
c PR fortran/50407
3
c
4
program
bar
5
6
interface operator
(.
ip
.)
7
function
mul
(
i1
,
i2
)
8
character
(
20
)
mul
9
intent
(
in
) ::
i1
,
i2
10
end function
11
end
interface
12
13
character
(
20
)
foo
14
i
=
3
15
j
=
4
16
print
2
.
ip
.8
!
compiles fine
17
print i
.
ip
.2
!
compiles fine
18
print i
.
ip
.
j
!
compiles fine
19
foo
=
1
_
'(I0,I4.4)'
20
print foo
,
i
,
j
21
print
1
_
'(I0,1X,I4.4)'
,
i
,
j
22
end
23
24
function
mul
(
i1
,
i2
)
25
character
(
20
)
mul
26
intent
(
in
) ::
i1
,
i2
27
integer
prod
28
prod
=
i1*i2
29
write
(
mul
,
100
)
prod
30
100
format
(
"('ok "
,
i2
,
"')"
)
31
end function