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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [char_length_12.f90] - Blame information for rev 749

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
 
  implicit none
  character(len=3), dimension(3,3), parameter :: &
    p = reshape(["xyz", "abc", "mkl", "vpn", "lsd", "epo", "tgv", &
                 "bbc", "wto"], [3,3])
  character(len=3), dimension(3,3) :: m1
 
  m1 = p
  if (any (spread (p, 1, 2) /= spread (m1, 1, 2))) call abort
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2
3			`implicit none`
4			`character(len=3), dimension(3,3), parameter :: &`
5			`p = reshape(["xyz", "abc", "mkl", "vpn", "lsd", "epo", "tgv", &`
6			`"bbc", "wto"], [3,3])`
7			`character(len=3), dimension(3,3) :: m1`
8
9			`m1 = p`
10			`if (any (spread (p, 1, 2) /= spread (m1, 1, 2))) call abort`
11
12			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [char_length_12.f90] - Blame information for rev 749