summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/automatic_module_variable.f90
blob: c88b355b24c3e3682f3882cc0685a2eef0c6176c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
! { dg-do compile }
! Tests fix for PR15976
!
module sd
  integer, parameter :: n = 20
  integer :: i(n)
  integer :: j(m) ! { dg-error "must have constant shape" }
  integer, pointer :: p(:)
  integer, allocatable :: q(:)
contains
  function init (x, l)
    integer :: x(l)
    integer :: init(l)
    init = x
  end function init
end module sd

! { dg-final { cleanup-modules "sd" } }