Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/import5.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 ! Test for import in interfaces PR fortran/30922
3 !
4 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
5 !
6 module test_import
7 implicit none
8
9 type :: my_type
10 integer :: data
11 end type my_type
12 integer, parameter :: n = 20
13
14 interface
15 integer function func1(param)
16 import
17 type(my_type) :: param(n)
18 end function func1
19
20 integer function func2(param)
21 import :: my_type
22 type(my_type), value :: param
23 end function func2
24 end interface
25
26 contains
27
28 subroutine sub1 ()
29
30 interface
31 integer function func3(param)
32 import
33 type(my_type), dimension (n) :: param
34 end function func3
35
36 integer function func4(param)
37 import :: my_type, n
38 type(my_type), dimension (n) :: param
39 end function func4
40 end interface
41
42 end subroutine sub1
43 end module test_import