16 lines
325 B
Fortran
16 lines
325 B
Fortran
! { dg-do run }
|
|
! Check size with initialization expression value for dim=
|
|
! PR fortran/30882
|
|
!
|
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
|
!
|
|
program main
|
|
integer :: a(10)
|
|
call S1(a)
|
|
contains
|
|
subroutine S1(a)
|
|
integer :: a(*)
|
|
if(size(a(1:10),1) /= 10) call abort()
|
|
end subroutine S1
|
|
end program main
|