aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.dg/format_string.f
blob: ff0b5388ce92075523970648297d0a56fdb69e3b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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