blob: e9a723863c6b0768fd25651a8d6a336771c4f872 [file] [log] [blame]
! { 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