581 |
EOF |
EOF |
582 |
return 1 |
return 1 |
583 |
fi |
fi |
584 |
cat > genmake_tcomp.f <<EOF |
cat > genmake_tcomp.$FS <<EOF |
585 |
subroutine tcall( string ) |
subroutine tcall( string ) |
586 |
character*(*) string |
character*(*) string |
587 |
call tsub( string ) |
call tsub( string ) |
588 |
end |
end |
589 |
EOF |
EOF |
590 |
$FC $FFLAGS $DEFINES -c genmake_tcomp.f >> genmake_warnings 2>&1 |
$FC $FFLAGS $DEFINES -c genmake_tcomp.$FS >> genmake_warnings 2>&1 |
591 |
RETVAL=$? |
RETVAL=$? |
592 |
if test "x$RETVAL" != x0 ; then |
if test "x$RETVAL" != x0 ; then |
593 |
FC_NAMEMANGLE=$default_nm |
FC_NAMEMANGLE=$default_nm |
653 |
*curtim = *curtim/1.E6; |
*curtim = *curtim/1.E6; |
654 |
} |
} |
655 |
EOF |
EOF |
656 |
make genmake_tc_1.o >> genmake_tc.log 2>&1 |
make genmake_tc_1.o >> genmake_warnings 2>&1 |
657 |
RET_C=$? |
RET_C=$? |
658 |
cat <<EOF > genmake_tc_2.f |
cat <<EOF > genmake_tc_2.$FS |
659 |
program hello |
program hello |
660 |
Real*8 wtime |
Real*8 wtime |
661 |
external cloc |
external cloc |
663 |
print *," HELLO WORLD", wtime |
print *," HELLO WORLD", wtime |
664 |
end program hello |
end program hello |
665 |
EOF |
EOF |
666 |
$FC $FFLAGS -o genmake_tc genmake_tc_2.f genmake_tc_1.o >> genmake_tc.log 2>&1 |
$FC $FFLAGS -o genmake_tc genmake_tc_2.$FS genmake_tc_1.o >> genmake_warnings 2>&1 |
667 |
RET_F=$? |
RET_F=$? |
668 |
test -x ./genmake_tc && ./genmake_tc >> genmake_tc.log 2>&1 |
test -x ./genmake_tc && ./genmake_tc >> genmake_warnings 2>&1 |
669 |
RETVAL=$? |
RETVAL=$? |
670 |
if test "x$RETVAL" = x0 ; then |
if test "x$RETVAL" = x0 ; then |
671 |
HAVE_CLOC=t |
HAVE_CLOC=t |
698 |
EOF |
EOF |
699 |
make genmake_tc_1.o >> genmake_tc.log 2>&1 |
make genmake_tc_1.o >> genmake_tc.log 2>&1 |
700 |
RET_C=$? |
RET_C=$? |
701 |
cat <<EOF > genmake_tc_2.f |
cat <<EOF > genmake_tc_2.$FS |
702 |
program hello |
program hello |
703 |
integer nbyte |
integer nbyte |
704 |
call tfsize(nbyte) |
call tfsize(nbyte) |
705 |
print *," HELLO WORLD", nbyte |
print *," HELLO WORLD", nbyte |
706 |
end program hello |
end program hello |
707 |
EOF |
EOF |
708 |
$FC $FFLAGS -o genmake_tc genmake_tc_2.f genmake_tc_1.o >> genmake_tc.log 2>&1 |
$FC $FFLAGS -o genmake_tc genmake_tc_2.$FS genmake_tc_1.o >> genmake_tc.log 2>&1 |
709 |
RET_F=$? |
RET_F=$? |
710 |
test -x ./genmake_tc && ./genmake_tc >> genmake_tc.log 2>&1 |
test -x ./genmake_tc && ./genmake_tc >> genmake_tc.log 2>&1 |
711 |
RETVAL=$? |
RETVAL=$? |
1286 |
|
|
1287 |
printf "\n=== Checking system libraries ===\n" |
printf "\n=== Checking system libraries ===\n" |
1288 |
printf " Do we have the system() command using $FC... " |
printf " Do we have the system() command using $FC... " |
1289 |
cat > genmake_tcomp.f <<EOF |
cat > genmake_tcomp.$FS <<EOF |
1290 |
program hello |
program hello |
1291 |
call system('echo hi') |
call system('echo hi') |
1292 |
end |
end |
1293 |
EOF |
EOF |
1294 |
$FC $FFLAGS $DEFINES -o genmake_tcomp genmake_tcomp.f > genmake_tcomp.log 2>&1 |
$FC $FFLAGS $DEFINES -o genmake_tcomp genmake_tcomp.$FS > genmake_tcomp.log 2>&1 |
1295 |
RETVAL=$? |
RETVAL=$? |
1296 |
if test "x$RETVAL" = x0 ; then |
if test "x$RETVAL" = x0 ; then |
1297 |
HAVE_SYSTEM=t |
HAVE_SYSTEM=t |
1304 |
rm -f genmake_tcomp* |
rm -f genmake_tcomp* |
1305 |
|
|
1306 |
printf " Do we have the fdate() command using $FC... " |
printf " Do we have the fdate() command using $FC... " |
1307 |
cat > genmake_tcomp.f <<EOF |
cat > genmake_tcomp.$FS <<EOF |
1308 |
program hello |
program hello |
1309 |
CHARACTER(128) string |
CHARACTER(128) string |
1310 |
string = ' ' |
string = ' ' |
1312 |
print *, string |
print *, string |
1313 |
end |
end |
1314 |
EOF |
EOF |
1315 |
$FC $FFLAGS $DEFINES -o genmake_tcomp genmake_tcomp.f > genmake_tcomp.log 2>&1 |
$FC $FFLAGS $DEFINES -o genmake_tcomp genmake_tcomp.$FS > genmake_tcomp.log 2>&1 |
1316 |
RETVAL=$? |
RETVAL=$? |
1317 |
if test "x$RETVAL" = x0 ; then |
if test "x$RETVAL" = x0 ; then |
1318 |
HAVE_FDATE=t |
HAVE_FDATE=t |
1325 |
rm -f genmake_tcomp* |
rm -f genmake_tcomp* |
1326 |
|
|
1327 |
printf " Do we have the etime() command using $FC... " |
printf " Do we have the etime() command using $FC... " |
1328 |
cat > genmake_tcomp.f <<EOF |
cat > genmake_tcomp.$FS <<EOF |
1329 |
program hello |
program hello |
1330 |
REAL*4 ACTUAL, TARRAY(2) |
REAL*4 ACTUAL, TARRAY(2) |
1331 |
EXTERNAL ETIME |
EXTERNAL ETIME |
1334 |
print *, tarray |
print *, tarray |
1335 |
end |
end |
1336 |
EOF |
EOF |
1337 |
$FC $FFLAGS $DEFINES -o genmake_tcomp genmake_tcomp.f > genmake_tcomp.log 2>&1 |
$FC $FFLAGS $DEFINES -o genmake_tcomp genmake_tcomp.$FS > genmake_tcomp.log 2>&1 |
1338 |
RETVAL=$? |
RETVAL=$? |
1339 |
if test "x$RETVAL" = x0 ; then |
if test "x$RETVAL" = x0 ; then |
1340 |
HAVE_ETIME=t |
HAVE_ETIME=t |