Mercurial > hg > CbC > CbC_gcc
diff gcc/testsuite/gfortran.dg/import.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/import.f90 Thu Oct 25 08:08:40 2018 +0900 +++ b/gcc/testsuite/gfortran.dg/import.f90 Thu Oct 25 10:21:07 2018 +0900 @@ -8,7 +8,7 @@ integer :: i end type myType3 type(myType3) :: x - if(x%i /= 7) call abort() + if(x%i /= 7) STOP 1 x%i = 1 end subroutine test @@ -20,8 +20,8 @@ end type myType type(myType) :: x integer(8) :: y - if(y /= 8) call abort() - if(x%i /= 2) call abort() + if(y /= 8) STOP 2 + if(x%i /= 2) STOP 3 x%i = 5 y = 42 end subroutine bar @@ -70,8 +70,8 @@ y%i = 2 i8 = 8 call bar(y,i8) - if(y%i /= 5 .or. i8/= 42) call abort() + if(y%i /= 5 .or. i8/= 42) STOP 4 z%i = 7 call test(z) - if(z%i /= 1) call abort() + if(z%i /= 1) STOP 5 end program foo