Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/assumed_rank_13.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 !
3 ! PR fortran/57458
4 !
5 !
6
7 integer, pointer, asynchronous :: i(:)
8 integer, pointer, volatile :: j(:)
9 call foo(i)
10 call foo2(i)
11 call foo3(j)
12 call foo4(j)
13 contains
14 subroutine foo(x)
15 type(*), dimension(:), asynchronous :: x
16 end subroutine foo
17 subroutine foo2(x)
18 type(*), dimension(..), asynchronous :: x
19 end subroutine foo2
20 subroutine foo3(x)
21 type(*), dimension(:), asynchronous :: x
22 end subroutine foo3
23 subroutine foo4(x)
24 type(*), dimension(..), asynchronous :: x
25 end subroutine foo4
26 end