With gfortran compiler, the flag -fdefault-real-16 helps to set the default real type to an 16 byte wide type. for example
program qp_test implicit none