Fortran portability functions rand random number segmentation fault

Assine o Fortran portability functions rand random number segmentation fault