annotate gcc/testsuite/gfortran.dg/pr64107.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ! { dg-do compile }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 ! PR fortran/64107
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 ! Code contribute by fxcoudert at gcc dot gnu dot org
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 ! Appears to be fixed by patch for PR fortran/83633
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 module m1
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 contains
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 pure integer function foo()
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 foo = 2
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 end function
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 end module
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13 subroutine test
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 use m1
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 integer :: x1(foo())
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 end subroutine
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 module m
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 use m1
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 integer :: x2(foo()) ! { dg-error "array with nonconstant bounds" }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21 contains
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 subroutine sub
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 integer :: x3(foo())
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 end subroutine
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 end module
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 program p
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
28 use m1
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
29 integer :: x4(foo()) ! { dg-error "array with nonconstant bounds" }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
30 end program