path: root/gcc/testsuite/gfortran.dg/unsigned_42.f90

! { dg-do compile }
! { dg-options "-funsigned" }
module mytype
  integer, parameter :: uk = selected_unsigned_kind(12)
end module mytype

module foo
  use mytype
  implicit none
  unsigned(uk), parameter :: seed0 = 1u_uk
  unsigned(uk), protected :: x_ = seed0
end module foo