some tests cannot be compiled using Fujitsu compiler

[Ryusuke Numata]

• Fujitsu compiler complains nothing after contains statement.

Just removing contains statement works fine.

Fortran diagnostic messages: program name(test_gs2_diagnostics) jwd1190i-s "test_gs2_diagnostics.f90", line 71: One or more internal or module subprograms must follow CONTAINS statement.

• Fujitsu compiler dislikes very long line

Similar error as utils/constant_random occurs in test_theta_grid. The initialization of miller_results is too long. We can avoid the problem by breaking the line into several parts.

Fortran diagnostic messages: program name(test_theta_grid) Internal subprogram name(miller_result) jwd2007i-w "test_theta_grid.f90", line 173: No value assigned to function, entry, or function result name of function subprogram. jwd1048i-i "test_theta_grid.f90", line 383: Length of source record exceeds 255 characters. jwd1439i-s "test_theta_grid.f90", line 383, column 256: Invalid correspondence between operator and operand. jwd1019i-s "test_theta_grid.f90", line 385: Value of statement label cannot be 0. jwd1302i-s "test_theta_grid.f90", line 385: Not a valid Fortran statement. make[2]: *** [test_theta_grid.o] Error 1

[Ryusuke Numata]

PR #61 and PR #59 resolve the problems.