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

Subversion Repositories openrisc

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

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


! { dg-do compile }
 
  double precision :: arr(5, 8)
  call bar (arr)
contains
  subroutine foo (arr)
    double precision :: arr(:,:)
    arr(3, 4) = 24
  end subroutine foo
  subroutine bar (arr)
    double precision :: arr(5,*)
    call foo (arr)   ! { dg-error "cannot be an assumed-size array" }
    call foo (arr (:, :8))
  end subroutine
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`double precision :: arr(5, 8)`
4			`call bar (arr)`
5			`contains`
6			`subroutine foo (arr)`
7			`double precision :: arr(:,:)`
8			`arr(3, 4) = 24`
9			`end subroutine foo`
10			`subroutine bar (arr)`
11			`double precision :: arr(5,*)`
12			`call foo (arr) ! { dg-error "cannot be an assumed-size array" }`
13			`call foo (arr (:, :8))`
14			`end subroutine`
15			`end`

Browse

Tools

Subversion Repositories openrisc

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