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

Subversion Repositories openrisc

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

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


program main
implicit none
character(len=10) :: digit_string = '123456789'
character :: digit_arr(10)
call copy(digit_string, digit_arr)
print '(1x, a1)',digit_arr(1:9)
contains
  subroutine copy(in, out)
    character, dimension(10) :: in, out
    out(1:10) = in(1:10)
  end subroutine copy
end program main
 

Line No.	Rev	Author	Line
1	695	jeremybenn	`program main`
2			`implicit none`
3			`character(len=10) :: digit_string = '123456789'`
4			`character :: digit_arr(10)`
5			`call copy(digit_string, digit_arr)`
6			`print '(1x, a1)',digit_arr(1:9)`
7			`contains`
8			`subroutine copy(in, out)`
9			`character, dimension(10) :: in, out`
10			`out(1:10) = in(1:10)`
11			`end subroutine copy`
12			`end program main`
13

Browse

Tools

Subversion Repositories openrisc

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