Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/import.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
6 type myType3 6 type myType3
7 sequence 7 sequence
8 integer :: i 8 integer :: i
9 end type myType3 9 end type myType3
10 type(myType3) :: x 10 type(myType3) :: x
11 if(x%i /= 7) call abort() 11 if(x%i /= 7) STOP 1
12 x%i = 1 12 x%i = 1
13 end subroutine test 13 end subroutine test
14 14
15 15
16 subroutine bar(x,y) 16 subroutine bar(x,y)
18 sequence 18 sequence
19 integer :: i 19 integer :: i
20 end type myType 20 end type myType
21 type(myType) :: x 21 type(myType) :: x
22 integer(8) :: y 22 integer(8) :: y
23 if(y /= 8) call abort() 23 if(y /= 8) STOP 2
24 if(x%i /= 2) call abort() 24 if(x%i /= 2) STOP 3
25 x%i = 5 25 x%i = 5
26 y = 42 26 y = 42
27 end subroutine bar 27 end subroutine bar
28 28
29 module testmod 29 module testmod
68 type(myType3) :: z 68 type(myType3) :: z
69 integer(8) :: i8 69 integer(8) :: i8
70 y%i = 2 70 y%i = 2
71 i8 = 8 71 i8 = 8
72 call bar(y,i8) 72 call bar(y,i8)
73 if(y%i /= 5 .or. i8/= 42) call abort() 73 if(y%i /= 5 .or. i8/= 42) STOP 4
74 z%i = 7 74 z%i = 7
75 call test(z) 75 call test(z)
76 if(z%i /= 1) call abort() 76 if(z%i /= 1) STOP 5
77 end program foo 77 end program foo