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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [pr19269-1.f90] - Blame information for rev 801

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


program main
  call test (reshape ((/ 'a', 'b', 'c', 'd' /), (/ 2, 2 /)))
contains
  subroutine test (a)
    character (len = *), dimension (:, :) :: a
 
    if (size (a, 1) .ne. 2) call abort
    if (size (a, 2) .ne. 2) call abort
    if (len (a) .ne. 1) call abort
 
    if (a (1, 1) .ne. 'a') call abort
    if (a (2, 1) .ne. 'b') call abort
    if (a (1, 2) .ne. 'c') call abort
    if (a (2, 2) .ne. 'd') call abort
  end subroutine test
end program main

Line No.	Rev	Author	Line
1	695	jeremybenn	`program main`
2			`call test (reshape ((/ 'a', 'b', 'c', 'd' /), (/ 2, 2 /)))`
3			`contains`
4			`subroutine test (a)`
5			`character (len = *), dimension (:, :) :: a`
6
7			`if (size (a, 1) .ne. 2) call abort`
8			`if (size (a, 2) .ne. 2) call abort`
9			`if (len (a) .ne. 1) call abort`
10
11			`if (a (1, 1) .ne. 'a') call abort`
12			`if (a (2, 1) .ne. 'b') call abort`
13			`if (a (1, 2) .ne. 'c') call abort`
14			`if (a (2, 2) .ne. 'd') call abort`
15			`end subroutine test`
16			`end program main`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [pr19269-1.f90] - Blame information for rev 801