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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [parens_5.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-do run }`	`! { dg-do run }`
`! Another case of fallout from the original patch for PR14771`	`! Another case of fallout from the original patch for PR14771`
`! Testcase by Erik Zeek`	`! Testcase by Erik Zeek`
`module para`	`module para`
`contains`	`contains`
`function bobo(n)`	`function bobo(n)`
`integer, intent(in) :: n`	`integer, intent(in) :: n`
`character(len=(n)) :: bobo ! Used to fail here`	`character(len=(n)) :: bobo ! Used to fail here`
`bobo = "1234567890"`	`bobo = "1234567890"`
`end function bobo`	`end function bobo`
`end module para`	`end module para`

`program test`	`program test`
`use para`	`use para`
`implicit none`	`implicit none`
`character*5 c`	`character*5 c`
`c = bobo(5)`	`c = bobo(5)`
`if (c .ne. "12345") call abort`	`if (c .ne. "12345") call abort`
`end program test`	`end program test`

`! { dg-final { cleanup-modules "para" } }`	`! { dg-final { cleanup-modules "para" } }`