Mercurial > hg > CbC > CbC_gcc

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
10 INTEGER, dimension(2) :: array_fifth 10 INTEGER, dimension(2) :: array_fifth
11 INTEGER, POINTER, DIMENSION(:) :: ptr_array => NULL() 11 INTEGER, POINTER, DIMENSION(:) :: ptr_array => NULL()
12 INTEGER, POINTER, DIMENSION(:) :: ptr_array_fifth => NULL() 12 INTEGER, POINTER, DIMENSION(:) :: ptr_array_fifth => NULL()
13 ptr_array => array 13 ptr_array => array
14 array_fifth = every_fifth (ptr_array) 14 array_fifth = every_fifth (ptr_array)
15 if (any (array_fifth .ne. [1,11])) call abort 15 if (any (array_fifth .ne. [1,11])) STOP 1
16 if (any (every_fifth(ptr_array) .ne. [1,11])) call abort 16 if (any (every_fifth(ptr_array) .ne. [1,11])) STOP 2
17 CONTAINS 17 CONTAINS
18 FUNCTION every_fifth (ptr_array) RESULT (ptr_fifth) 18 FUNCTION every_fifth (ptr_array) RESULT (ptr_fifth)
19 IMPLICIT NONE 19 IMPLICIT NONE
20 INTEGER, POINTER, DIMENSION(:) :: ptr_fifth 20 INTEGER, POINTER, DIMENSION(:) :: ptr_fifth
21 INTEGER, POINTER, DIMENSION(:), INTENT(in) :: ptr_array 21 INTEGER, POINTER, DIMENSION(:), INTENT(in) :: ptr_array