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