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 |