Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

! Tests the fix for PR30319, in which the use of the parameter 'aa' in

! Tests the fix for PR30319, in which the use of the parameter 'aa' in

! the array constructor that initialises bb would cause an internal

! the array constructor that initialises bb would cause an internal

! error in resolution.

! error in resolution.

!

!

! Contributed by Vivek Rao 

! Contributed by Vivek Rao 

!

!

module foomod

module foomod

  character (len=1), parameter :: aa = "z", bb(1) = (/aa/)

  character (len=1), parameter :: aa = "z", bb(1) = (/aa/)

end module foomod

end module foomod

  use foomod

  use foomod

  print *, aa, bb

  print *, aa, bb

end

end

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

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