URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
! { dg-do compile }
|
! { dg-do compile }
|
! Tests the fix for PR30283 in which the type of the result
|
! Tests the fix for PR30283 in which the type of the result
|
! of bar was getting lost
|
! of bar was getting lost
|
|
|
! Contributed by Harald Anlauf
|
! Contributed by Harald Anlauf
|
|
|
module gfcbug50
|
module gfcbug50
|
implicit none
|
implicit none
|
contains
|
contains
|
|
|
subroutine foo (n, y)
|
subroutine foo (n, y)
|
integer, intent(in) :: n
|
integer, intent(in) :: n
|
integer, dimension(bar (n)) :: y
|
integer, dimension(bar (n)) :: y
|
! Array bound is specification expression, which is allowed (F2003, sect.7.1.6)
|
! Array bound is specification expression, which is allowed (F2003, sect.7.1.6)
|
end subroutine foo
|
end subroutine foo
|
|
|
pure function bar (n) result (l)
|
pure function bar (n) result (l)
|
integer, intent(in) :: n
|
integer, intent(in) :: n
|
integer :: l
|
integer :: l
|
l = n
|
l = n
|
end function bar
|
end function bar
|
|
|
end module gfcbug50
|
end module gfcbug50
|
|
|
! { dg-final { cleanup-modules "gfcbug50" } }
|
! { dg-final { cleanup-modules "gfcbug50" } }
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.