comparison gcc/testsuite/gfortran.dg/value_2.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
7 ! 7 !
8 program test_value 8 program test_value
9 integer(8) :: i = 42 9 integer(8) :: i = 42
10 10
11 call bar (i) 11 call bar (i)
12 if (i /= 42) call abort () 12 if (i /= 42) STOP 1
13 contains 13 contains
14 subroutine bar (i) 14 subroutine bar (i)
15 integer(8) :: i 15 integer(8) :: i
16 value :: i ! { dg-error "Fortran 2003: VALUE" } 16 value :: i ! { dg-error "Fortran 2003: VALUE" }
17 if (i /= 42) call abort () 17 if (i /= 42) STOP 2
18 i = 99 18 i = 99
19 if (i /= 99) call abort () 19 if (i /= 99) STOP 3
20 end subroutine bar 20 end subroutine bar
21 end program test_value 21 end program test_value