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

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 ! PR 22607: External/module pure return-by-reference functions
3
4 pure function hoj()
5 integer :: hoj(3)
6 hoj = (/1, 2, 3/)
7 end function hoj
8
9 module huj_mod
10 contains
11 pure function huj()
12 integer :: huj(3)
13 huj = (/1, 2, 3/)
14 end function huj
15 end module huj_mod
16
17 program pure_byref_3
18 use huj_mod
19 implicit none
20
21 interface
22 pure function hoj()
23 integer :: hoj(3)
24 end function hoj
25 end interface
26 integer :: a(3)
27
28 a = huj()
29 if (.not. all(a == (/1, 2, 3/))) call abort()
30
31 a = hoj()
32 if (.not. all(a == (/1, 2, 3/))) call abort()
33 end program pure_byref_3