comparison gcc/testsuite/gfortran.dg/goto_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
51 999 i = -1 51 999 i = -1
52 end subroutine check_select 52 end subroutine check_select
53 53
54 i = 0 54 i = 0
55 call check_if (i) 55 call check_if (i)
56 if (i /= 2) call abort () 56 if (i /= 2) STOP 1
57 call check_select (i) 57 call check_select (i)
58 if (i /= 2) call abort () 58 if (i /= 2) STOP 2
59 end 59 end