mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
32 lines
670 B
Fortran
32 lines
670 B
Fortran
c { dg-do compile }
|
|
c PR fortran/50407
|
|
c
|
|
program bar
|
|
|
|
interface operator (.ip.)
|
|
function mul (i1, i2)
|
|
character(20) mul
|
|
intent(in) :: i1,i2
|
|
end function
|
|
end interface
|
|
|
|
character(20) foo
|
|
i=3
|
|
j=4
|
|
print 2.ip.8 ! compiles fine
|
|
print i.ip.2 ! compiles fine
|
|
print i.ip.j ! compiles fine
|
|
foo = 1_'(I0,I4.4)'
|
|
print foo, i,j
|
|
print 1_'(I0,1X,I4.4)', i, j
|
|
end
|
|
|
|
function mul (i1, i2)
|
|
character(20) mul
|
|
intent(in) :: i1,i2
|
|
integer prod
|
|
prod=i1*i2
|
|
write(mul,100) prod
|
|
100 format("('ok ",i2,"')")
|
|
end function
|