test map, real128 fails on ppc

[barracuda156]

This test fails on Darwin ppc with gfortran-12:

16/25 Testing: test_map
16/25 Test: test_map
Command: "/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_fortran_functional-fortran/functional-fortran/work/build/bin/test_map"
Directory: /opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_fortran_functional-fortran/functional-fortran/work/build
"test_map" start time: Apr 20 10:42 CST
Output:
----------------------------------------------------------
test map,  int8                                                           : �[32mPASS�[0m
test map,  int16                                                          : �[32mPASS�[0m
test map,  int32                                                          : �[32mPASS�[0m
test map,  int64                                                          : �[32mPASS�[0m
test map,  real32                                                         : �[32mPASS�[0m
test map,  real64                                                         : �[32mPASS�[0m
test map,  real128                                                        : �[31mFAIL�[0m
test map,  complex real32                                                 : �[32mPASS�[0m
test map,  complex real64                                                 : �[32mPASS�[0m
test map,  complex real128                                                : �[32mPASS�[0m
Ran a total of  10 tests.
  9 tests PASSED,    1 tests FAILED.
STOP 1
<end of output>
Test time =   0.01 sec
----------------------------------------------------------
Test Failed.
"test_map" end time: Apr 20 10:42 CST
"test_map" time elapsed: 00:00:00
----------------------------------------------------------

Everything else passes.

[barracuda156]

Unlike #19 changing optimization to -O2 does not help.