Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr69739.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
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
1 ! { dg-do run }
2 !
3 ! Test the fix for PR69739 in which the statement
4 ! R = operate(A, X) caused an ICE.
5 !
6 ! Contributed by John <jwmwalrus@gmail.com>
7 !
8 module test
9
10 implicit none
11 type, public :: sometype
12 real :: a = 0.
13 end type
14 contains
15
16 function dosomething(A) result(r)
17 type(sometype), intent(IN) :: A(:,:,:)
18 integer :: N
19 real, allocatable :: R(:), X(:)
20
21 N = PRODUCT(UBOUND(A))
22 allocate (R(N),X(N))
23 X = [(real(N), N = 1, size(X, 1))]
24 R = operate(A, X)
25 end function
26
27 function operate(A, X)
28 type(sometype), intent(IN) :: A(:,:,:)
29 real, intent(IN) :: X(:)
30 real :: operate(1:PRODUCT(UBOUND(A)))
31
32 operate = x
33 end function
34 end module test
35
36 use test
37 type(sometype) :: a(2, 2, 2)
38 if (any(int (dosomething(a)) .ne. [1,2,3,4,5,6])) STOP 1
39 end