Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

! Tests the fix for 25103, in which the presence of automatic objects

! Tests the fix for 25103, in which the presence of automatic objects

! in the main program and the specification part of a module was not

! in the main program and the specification part of a module was not

! detected.

! detected.

!

!

! Contributed by Joost VandeVondele  

! Contributed by Joost VandeVondele  

!

!

module foo

module foo

  integer    ::  i

  integer    ::  i

end module foo

end module foo

module bar

module bar

  use foo

  use foo

  integer, dimension (i) :: j ! { dg-error "must have constant shape" }

  integer, dimension (i) :: j ! { dg-error "must have constant shape" }

  character (len = i) :: c1   ! { dg-error "must have constant character length" }

  character (len = i) :: c1   ! { dg-error "must have constant character length" }

end module bar

end module bar

program foobar

program foobar

  use foo

  use foo

  integer, dimension (i) :: k ! { dg-error "must have constant shape" }

  integer, dimension (i) :: k ! { dg-error "must have constant shape" }

  character (len = i) :: c2   ! { dg-error "must have constant character length" }

  character (len = i) :: c2   ! { dg-error "must have constant character length" }

end program foobar

end program foobar

! { dg-final { cleanup-modules "foo bar" } }

! { dg-final { cleanup-modules "foo bar" } }