URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [value_2.f90] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! { dg-options "-std=f95" }
! Tests the standard check in the patch for PR29642, which requested the
! implementation of the F2003 VALUE attribute for gfortran.
!
! Contributed by Paul Thomas <pault@gcc.gnu.org>
!
program test_value
integer(8) :: i = 42
call bar (i)
if (i /= 42) call abort ()
contains
subroutine bar (i)
integer(8) :: i
value :: i ! { dg-error "Fortran 2003: VALUE" }
if (i /= 42) call abort ()
i = 99
if (i /= 99) call abort ()
end subroutine bar
end program test_value
Go to most recent revision | Compare with Previous | Blame | View Log