Subversion Repositories openrisc

! { dg-do compile }

! PR fortran/29403

program p

   character(len=10) a, b, c

   integer i

   i = 1

   print ('(I0)'), i

   a = '(I0,'

   b = 'I2,'

   c = 'I4)'

   call prn(a, b, c, i)

   print (1,*), i       ! { dg-error "in PRINT statement" }

end program p

subroutine prn(a, b, c, i)

  integer i

  character(len=*) a, b, c

  print (a//(b//c)), i, i, i

  print trim(a//trim(b//c)), i, i, i

end subroutine prn