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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [repeat_1.f90] - Blame information for rev 822

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


! { dg-do run }
! { dg-shouldfail "negative NCOPIES argument to REPEAT intrinsic" }
  character(len=80) :: str
  integer :: i
  i = -1
  write(str,"(a)") repeat ("a", f())
  if (trim(str) /= "aaaa") call abort
  write(str,"(a)") repeat ("a", i)
 
contains
 
  integer function f()
    integer :: x = 5
    save x
 
    x = x - 1
    f = x
  end function f
end
! { dg-output "Fortran runtime error: Argument NCOPIES of REPEAT intrinsic is negative .* line 6)"

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! { dg-shouldfail "negative NCOPIES argument to REPEAT intrinsic" }`
3			`character(len=80) :: str`
4			`integer :: i`
5			`i = -1`
6			`write(str,"(a)") repeat ("a", f())`
7			`if (trim(str) /= "aaaa") call abort`
8			`write(str,"(a)") repeat ("a", i)`
9
10			`contains`
11
12			`integer function f()`
13			`integer :: x = 5`
14			`save x`
15
16			`x = x - 1`
17			`f = x`
18			`end function f`
19			`end`
20			`! { dg-output "Fortran runtime error: Argument NCOPIES of REPEAT intrinsic is negative .* line 6)"`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [repeat_1.f90] - Blame information for rev 822