blob: 8df82c8b36b0a4c3570b2aac4c4053ebfc7b2ae8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { dg-do run }
! PR fortran/90539 - this used to cause an ICE.
module t2
implicit none
contains
subroutine foo(a)
real, dimension(*) :: a
if (a(1) /= 1.0 .or. a(2) /= 2.0) stop 1
end subroutine foo
end module t2
module t1
use t2
implicit none
contains
subroutine bar(a)
real, dimension(:) :: a
if (a(1) /= 1.0 .or. a(2) /= 2.0) stop 1
call foo(a)
end subroutine bar
end module t1
program main
use t1
call bar([1.0, 2.0])
end program main
|
