module blahblah
 character(len=1), parameter :: ch10 = char(10)
end module

program testme3
 use blahblah
 implicit none
 character(len=100) :: message

 write(6, '(a,a)') ch10,'invars1m : enter jdtset='
end program