blob: 3ac6b37999e1716ca438732c8f8c68573c35bc19 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! PR fortran/89084
! { dg-do run }
integer function foo ()
write (*,*) 'foo'
block
integer, parameter :: idxs(3) = (/ 1, 2, 3 /)
integer :: i
foo = 0
do i = 1, size(idxs)
foo = foo + idxs(i)
enddo
end block
end function foo
program pr89084
integer :: i
interface
integer function foo ()
end function
end interface
i = foo ()
if (i.ne.6) stop 1
end
|
