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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_t_6.f] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR34782 tab format failure to display properly (regression vs. g77)
3
      character a(6)
4
      character(22)  :: output
5
      data a / 'a', 'b', 'c', 'd', 'e', 'f' /
6
      !write(*,'(a)') "123456789012345678901234567890"
7
      write(output,'(T20,A3,  T1,A4,  T5,A2,  T7,A2,  T9,A4, T17,A2)')
8
     1 'a', 'b', 'c', 'd', 'e', 'f'
9
      if (output .ne. "   b c d   e     f   a") call abort
10
      end

powered by: WebSVN 2.1.0

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