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

Subversion Repositories openrisc

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

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


! { dg-do run }
! { dg-options "-finit-character=89" }
!
! PR fortran/51800
!
 
subroutine foo(n)
  character(len=n) :: str
!  print *, str
  if (str /= repeat ('Y', n)) call abort()
end subroutine foo
 
call foo(3)
call foo(10)
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-finit-character=89" }`
3			`!`
4			`! PR fortran/51800`
5			`!`
6
7			`subroutine foo(n)`
8			`character(len=n) :: str`
9			`! print *, str`
10			`if (str /= repeat ('Y', n)) call abort()`
11			`end subroutine foo`
12
13			`call foo(3)`
14			`call foo(10)`
15			`end`

Browse

Tools

Subversion Repositories openrisc

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