OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [format_string.f] - Rev 694

Compare with Previous | Blame | View Log

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
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.