Subversion Repositories openrisc

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