1c { dg-do compile } 2c PR fortran/50407 3c 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 30100 format("('ok ",i2,"')") 31 end function 32