Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/intent_out_7.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 ! { dg-options "-fcoarray=single" }
3 !
4 ! PR fortran/53643
5 !
6 type t
7 integer, allocatable :: comp
8 end type t
9 contains
10 subroutine foo(x,y)
11 class(t), allocatable, intent(out) :: x(:)
12 class(t), intent(out) :: y(:)
13 end subroutine
14 subroutine foo2(x,y)
15 class(t), allocatable, intent(out) :: x
16 class(t), intent(out) :: y
17 end subroutine
18 subroutine bar(x,y)
19 class(t), intent(out) :: x(:)[*]
20 class(t), intent(out) :: y[*]
21 end subroutine
22 subroutine bar2(x,y)
23 type(t), intent(out) :: x(:)[*]
24 type(t), intent(out) :: y[*]
25 end subroutine
26 end