program parambug
        implicit none

        integer, parameter :: MY_KIND  = SELECTED_INT_KIND(10)
        integer(MY_KIND), parameter :: X = -2147483648

        write (*,*) X
        end program parambug