egcs-19990502 u77-test.f failure on Irix6.5
Zack Weinberg
zack@rabi.columbia.edu
Mon May 3 16:06:00 GMT 1999
On 3 May 1999 22:38:43 -0000, craig@jcb-sc.com wrote:
>Could y'all retry your test case, changed to look as follows?
[...]
>Also, try the above test case as is, and then with the two lines calling
>ctime swapped (i.e. the subroutine call *before* the function call).
>That might expose where the problem is.
>
>In both cases, let me know how the program behaves *and* include .s
>output...
I tried your testcase as-is, with the subroutine and function call
swapped, and with I changed to INTEGER*8; all three with -O0 and -O2,
on sparc-sun-solaris2.6. This is all egcs-1.1.0; current CVS behaves
identically.
In all cases, CTIME() was correct and CALL CTIME was wrong. At -O0
CALL CTIME always produces `Wed Dec 31 19:00:00 1969'. At -O2 it does
the same with your testcase, produces `Wed Dec 31 19:00:01 1969' with
the order of calls swapped, and `Thu Mar 3 05:32:00 2011' with
INTEGER*8.
A shar of the sources, assembly dumps, and output is appended. Let me
know if you want anything else, like RTL dumps.
zw
#!/bin/sh
# This is a shell archive (produced by GNU sharutils 4.2).
# To extract the files from this archive, save it to some FILE, remove
# everything before the `!/bin/sh' line above, then type `sh FILE'.
#
# Made on 1999-05-03 18:57 EDT by <zack@blastula.phys.columbia.edu>.
# Source directory was `/home/zack/x'.
#
# Existing files will *not* be overwritten unless `-c' is specified.
#
# This shar contains:
# length mode name
# ------ ---------- ------------------------------------------
# 3339 -rw------- ctime.O0.s
# 132 -rw------- ctime.O0.x
# 2953 -rw------- ctime.O2.s
# 132 -rw------- ctime.O2.x
# 380 -rw------- ctime.f
# 3291 -rw------- ctime2.O0.s
# 132 -rw------- ctime2.O0.x
# 2924 -rw------- ctime2.O2.s
# 132 -rw------- ctime2.O2.x
# 382 -rw------- ctime2.f
# 3340 -rw------- ctime3.O0.s
# 132 -rw------- ctime3.O0.x
# 2952 -rw------- ctime3.O2.s
# 132 -rw------- ctime3.O2.x
# 380 -rw------- ctime3.f
#
save_IFS="${IFS}"
IFS="${IFS}:"
gettext_dir=FAILED
locale_dir=FAILED
first_param="$1"
for dir in $PATH
do
if test "$gettext_dir" = FAILED && test -f $dir/gettext \
&& ($dir/gettext --version >/dev/null 2>&1)
then
set `$dir/gettext --version 2>&1`
if test "$3" = GNU
then
gettext_dir=$dir
fi
fi
if test "$locale_dir" = FAILED && test -f $dir/shar \
&& ($dir/shar --print-text-domain-dir >/dev/null 2>&1)
then
locale_dir=`$dir/shar --print-text-domain-dir`
fi
done
IFS="$save_IFS"
if test "$locale_dir" = FAILED || test "$gettext_dir" = FAILED
then
echo=echo
else
TEXTDOMAINDIR=$locale_dir
export TEXTDOMAINDIR
TEXTDOMAIN=sharutils
export TEXTDOMAIN
echo="$gettext_dir/gettext -s"
fi
touch -am 1231235999 $$.touch >/dev/null 2>&1
if test ! -f 1231235999 && test -f $$.touch; then
shar_touch=touch
else
shar_touch=:
echo
$echo 'WARNING: not restoring timestamps. Consider getting and'
$echo "installing GNU \`touch', distributed in GNU File Utilities..."
echo
fi
rm -f 1231235999 $$.touch
#
if mkdir _sh18667; then
$echo 'x -' 'creating lock directory'
else
$echo 'failed to create lock directory'
exit 1
fi
# ============= ctime.O0.s ==============
if test -f 'ctime.O0.s' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime.O0.s' '(file already exists)'
else
$echo 'x -' extracting 'ctime.O0.s' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime.O0.s' &&
X .file "ctime.f"
gcc2_compiled.:
X.section ".data"
X .align 4
X .type __g77_cilist_0.0,#object
X .size __g77_cilist_0.0,20
__g77_cilist_0.0:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC2:
X .ascii "CTIME() = "
X.section ".data"
X .align 4
X .type __g77_cilist_1.1,#object
X .size __g77_cilist_1.1,20
__g77_cilist_1.1:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC3:
X .ascii "CALL CTIME = "
X.section ".data"
X .align 4
X .type __g77_cilist_2.2,#object
X .size __g77_cilist_2.2,20
__g77_cilist_2.2:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC4:
X .ascii "CTIME() disagrees with CALL CTIME"
X.section ".data"
X .align 4
X .type __g77_cilist_3.3,#object
X .size __g77_cilist_3.3,20
__g77_cilist_3.3:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC5:
X .ascii "I is "
X .align 8
X.LLC7:
X .align 4
X.LLC0:
X .uaword 9
X .align 4
X.LLC1:
X .uaword 1
X .align 4
X.LLC6:
X .uaword 3
X.section ".text"
X .align 4
X .global MAIN__
X .type MAIN__,#function
X .proc 020
MAIN__:
X !#PROLOGUE# 0
X save %sp,-216,%sp
X !#PROLOGUE# 1
X call G77_time_0,0
X nop
X st %o1,[%fp-20]
X add %fp,-56,%l0
X add %fp,-112,%o0
X ld [%fp-20],%o4
X sra %o4,31,%o1
X ld [%fp-20],%o3
X mov %o1,%o2
X std %o2,[%fp-120]
X add %fp,-120,%o2
X mov 24,%o1
X call G77_ctime_0,0
X nop
X add %fp,-112,%o1
X mov %l0,%o0
X mov 25,%o2
X mov 24,%o3
X call s_copy,0
X nop
X add %fp,-88,%o0
X add %fp,-20,%o2
X mov 25,%o1
X call G77_ctime_0,0
X nop
X sethi %hi(__g77_cilist_0.0),%o1
X or %o1,%lo(__g77_cilist_0.0),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC2),%o3
X or %o3,%lo(.LLC2),%o2
X mov 13,%o3
X call do_lio,0
X nop
X add %fp,-56,%o2
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o3
X or %o3,%lo(.LLC1),%o1
X mov 25,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X sethi %hi(__g77_cilist_1.1),%o1
X or %o1,%lo(__g77_cilist_1.1),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC3),%o3
X or %o3,%lo(.LLC3),%o2
X mov 13,%o3
X call do_lio,0
X nop
X add %fp,-88,%o2
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o3
X or %o3,%lo(.LLC1),%o1
X mov 25,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X add %fp,-56,%o0
X add %fp,-88,%o1
X mov 25,%o2
X mov 25,%o3
X call s_cmp,0
X nop
X cmp %o0,0
X be .LL2
X nop
X sethi %hi(__g77_cilist_2.2),%o1
X or %o1,%lo(__g77_cilist_2.2),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC4),%o3
X or %o3,%lo(.LLC4),%o2
X mov 33,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X.LL2:
X sethi %hi(__g77_cilist_3.3),%o1
X or %o1,%lo(__g77_cilist_3.3),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC5),%o3
X or %o3,%lo(.LLC5),%o2
X mov 5,%o3
X call do_lio,0
X nop
X add %fp,-20,%o2
X sethi %hi(.LLC6),%o1
X or %o1,%lo(.LLC6),%o0
X sethi %hi(.LLC1),%o3
X or %o3,%lo(.LLC1),%o1
X mov 4,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X sethi %hi(.LLC7),%o1
X or %o1,%lo(.LLC7),%o0
X mov 0,%o1
X call s_stop,0
X nop
X.LL1:
X ret
X restore
X.LLfe1:
X .size MAIN__,.LLfe1-MAIN__
X .ident "GCC: (GNU) egcs-2.91.57 19980901 (egcs-1.1 release)"
SHAR_EOF
$shar_touch -am 0503185399 'ctime.O0.s' &&
chmod 0600 'ctime.O0.s' ||
$echo 'restore of' 'ctime.O0.s' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime.O0.s:' 'MD5 check failed'
f6029d04afc65f9b2532850cc09d4731 ctime.O0.s
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime.O0.s'`"
test 3339 -eq "$shar_count" ||
$echo 'ctime.O0.s:' 'original size' '3339,' 'current size' "$shar_count!"
fi
fi
# ============= ctime.O0.x ==============
if test -f 'ctime.O0.x' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime.O0.x' '(file already exists)'
else
$echo 'x -' extracting 'ctime.O0.x' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime.O0.x' &&
X CTIME() = Mon May 3 18:53:21 1999
X CALL CTIME = Wed Dec 31 19:00:00 1969
X CTIME() disagrees with CALL CTIME
X I is 925772001
SHAR_EOF
$shar_touch -am 0503185399 'ctime.O0.x' &&
chmod 0600 'ctime.O0.x' ||
$echo 'restore of' 'ctime.O0.x' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime.O0.x:' 'MD5 check failed'
8ad6e183248ed45422358ce658e7d10a ctime.O0.x
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime.O0.x'`"
test 132 -eq "$shar_count" ||
$echo 'ctime.O0.x:' 'original size' '132,' 'current size' "$shar_count!"
fi
fi
# ============= ctime.O2.s ==============
if test -f 'ctime.O2.s' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime.O2.s' '(file already exists)'
else
$echo 'x -' extracting 'ctime.O2.s' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime.O2.s' &&
X .file "ctime.f"
gcc2_compiled.:
X.section ".data"
X .align 4
X .type __g77_cilist_0.0,#object
X .size __g77_cilist_0.0,20
__g77_cilist_0.0:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC2:
X .ascii "CTIME() = "
X.section ".data"
X .align 4
X .type __g77_cilist_1.1,#object
X .size __g77_cilist_1.1,20
__g77_cilist_1.1:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC3:
X .ascii "CALL CTIME = "
X.section ".data"
X .align 4
X .type __g77_cilist_2.2,#object
X .size __g77_cilist_2.2,20
__g77_cilist_2.2:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC4:
X .ascii "CTIME() disagrees with CALL CTIME"
X.section ".data"
X .align 4
X .type __g77_cilist_3.3,#object
X .size __g77_cilist_3.3,20
__g77_cilist_3.3:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC5:
X .ascii "I is "
X .align 8
X.LLC7:
X .align 4
X.LLC0:
X .uaword 9
X .align 4
X.LLC1:
X .uaword 1
X .align 4
X.LLC6:
X .uaword 3
X.section ".text"
X .align 4
X .global MAIN__
X .type MAIN__,#function
X .proc 020
MAIN__:
X !#PROLOGUE# 0
X save %sp,-216,%sp
X !#PROLOGUE# 1
X call G77_time_0,0
X nop
X mov %o1,%o3
X sra %o1,31,%o2
X add %fp,-104,%l0
X st %o1,[%fp-120]
X std %o2,[%fp-112]
X add %fp,-48,%l1
X mov %l0,%o0
X mov 24,%o1
X call G77_ctime_0,0
X add %fp,-112,%o2
X mov %l0,%o1
X mov %l1,%o0
X mov 25,%o2
X call s_copy,0
X mov 24,%o3
X ld [%fp-120],%o4
X add %fp,-80,%l0
X st %o4,[%fp-116]
X mov %l0,%o0
X mov 25,%o1
X call G77_ctime_0,0
X add %fp,-116,%o2
X sethi %hi(__g77_cilist_0.0),%o0
X call s_wsle,0
X or %o0,%lo(__g77_cilist_0.0),%o0
X sethi %hi(.LLC0),%o1
X sethi %hi(.LLC1),%o0
X or %o1,%lo(.LLC0),%l3
X or %o0,%lo(.LLC1),%l2
X sethi %hi(.LLC2),%o2
X or %o2,%lo(.LLC2),%o2
X mov %l3,%o0
X mov %l2,%o1
X call do_lio,0
X mov 13,%o3
X mov %l3,%o0
X mov %l2,%o1
X mov %l1,%o2
X call do_lio,0
X mov 25,%o3
X call e_wsle,0
X nop
X sethi %hi(__g77_cilist_1.1),%o0
X call s_wsle,0
X or %o0,%lo(__g77_cilist_1.1),%o0
X sethi %hi(.LLC3),%o2
X or %o2,%lo(.LLC3),%o2
X mov %l3,%o0
X mov %l2,%o1
X call do_lio,0
X mov 13,%o3
X mov %l3,%o0
X mov %l2,%o1
X mov %l0,%o2
X call do_lio,0
X mov 25,%o3
X call e_wsle,0
X nop
X mov %l1,%o0
X mov %l0,%o1
X mov 25,%o2
X call s_cmp,0
X mov 25,%o3
X cmp %o0,0
X be,a .LL3
X sethi %hi(__g77_cilist_3.3),%o0
X sethi %hi(__g77_cilist_2.2),%o0
X call s_wsle,0
X or %o0,%lo(__g77_cilist_2.2),%o0
X sethi %hi(.LLC4),%o2
X or %o2,%lo(.LLC4),%o2
X mov %l3,%o0
X mov %l2,%o1
X call do_lio,0
X mov 33,%o3
X call e_wsle,0
X nop
X sethi %hi(__g77_cilist_3.3),%o0
X.LL3:
X call s_wsle,0
X or %o0,%lo(__g77_cilist_3.3),%o0
X sethi %hi(.LLC5),%o2
X mov %l3,%o0
X or %o2,%lo(.LLC5),%o2
X mov %l2,%o1
X call do_lio,0
X mov 5,%o3
X sethi %hi(.LLC6),%o0
X or %o0,%lo(.LLC6),%o0
X mov %l2,%o1
X add %fp,-120,%o2
X call do_lio,0
X mov 4,%o3
X call e_wsle,0
X nop
X sethi %hi(.LLC7),%o0
X or %o0,%lo(.LLC7),%o0
X call s_stop,0
X mov 0,%o1
X.LLfe1:
X .size MAIN__,.LLfe1-MAIN__
X .ident "GCC: (GNU) egcs-2.91.57 19980901 (egcs-1.1 release)"
SHAR_EOF
$shar_touch -am 0503185599 'ctime.O2.s' &&
chmod 0600 'ctime.O2.s' ||
$echo 'restore of' 'ctime.O2.s' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime.O2.s:' 'MD5 check failed'
d960f2f60f2cb43faf3aa68a98417bf6 ctime.O2.s
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime.O2.s'`"
test 2953 -eq "$shar_count" ||
$echo 'ctime.O2.s:' 'original size' '2953,' 'current size' "$shar_count!"
fi
fi
# ============= ctime.O2.x ==============
if test -f 'ctime.O2.x' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime.O2.x' '(file already exists)'
else
$echo 'x -' extracting 'ctime.O2.x' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime.O2.x' &&
X CTIME() = Mon May 3 18:55:08 1999
X CALL CTIME = Wed Dec 31 19:00:00 1969
X CTIME() disagrees with CALL CTIME
X I is 925772108
SHAR_EOF
$shar_touch -am 0503185599 'ctime.O2.x' &&
chmod 0600 'ctime.O2.x' ||
$echo 'restore of' 'ctime.O2.x' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime.O2.x:' 'MD5 check failed'
adb7ebc08d55f0793e6464e88c96f88b ctime.O2.x
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime.O2.x'`"
test 132 -eq "$shar_count" ||
$echo 'ctime.O2.x:' 'original size' '132,' 'current size' "$shar_count!"
fi
fi
# ============= ctime.f ==============
if test -f 'ctime.f' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime.f' '(file already exists)'
else
$echo 'x -' extracting 'ctime.f' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime.f' &&
X implicit none
X intrinsic time, ctime
X integer i
X character ctim*25, ctim2*25
X
X i = time ()
X ctim = ctime (i)
X call ctime (ctim2, i)
X
X print *, 'CTIME() = ', ctim
X print *, 'CALL CTIME = ', ctim2
X if (ctim .ne. ctim2) then
X print *, 'CTIME() disagrees with CALL CTIME'
X end if
X print *, 'I is ', i
X
X end
SHAR_EOF
$shar_touch -am 0503184899 'ctime.f' &&
chmod 0600 'ctime.f' ||
$echo 'restore of' 'ctime.f' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime.f:' 'MD5 check failed'
84501602d65f869d77936410ea6b23f3 ctime.f
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime.f'`"
test 380 -eq "$shar_count" ||
$echo 'ctime.f:' 'original size' '380,' 'current size' "$shar_count!"
fi
fi
# ============= ctime2.O0.s ==============
if test -f 'ctime2.O0.s' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime2.O0.s' '(file already exists)'
else
$echo 'x -' extracting 'ctime2.O0.s' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime2.O0.s' &&
X .file "ctime2.f"
gcc2_compiled.:
X.section ".data"
X .align 4
X .type __g77_cilist_0.0,#object
X .size __g77_cilist_0.0,20
__g77_cilist_0.0:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC2:
X .ascii "CTIME() = "
X.section ".data"
X .align 4
X .type __g77_cilist_1.1,#object
X .size __g77_cilist_1.1,20
__g77_cilist_1.1:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC3:
X .ascii "CALL CTIME = "
X.section ".data"
X .align 4
X .type __g77_cilist_2.2,#object
X .size __g77_cilist_2.2,20
__g77_cilist_2.2:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC4:
X .ascii "CTIME() disagrees with CALL CTIME"
X.section ".data"
X .align 4
X .type __g77_cilist_3.3,#object
X .size __g77_cilist_3.3,20
__g77_cilist_3.3:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC5:
X .ascii "I is "
X .align 8
X.LLC7:
X .align 4
X.LLC0:
X .uaword 9
X .align 4
X.LLC1:
X .uaword 1
X .align 4
X.LLC6:
X .uaword 14
X.section ".text"
X .align 4
X .global MAIN__
X .type MAIN__,#function
X .proc 020
MAIN__:
X !#PROLOGUE# 0
X save %sp,-208,%sp
X !#PROLOGUE# 1
X call G77_time_0,0
X nop
X st %o1,[%fp-20]
X sra %o1,31,%o0
X st %o0,[%fp-24]
X add %fp,-56,%l0
X add %fp,-112,%o0
X add %fp,-24,%o2
X mov 24,%o1
X call G77_ctime_0,0
X nop
X add %fp,-112,%o1
X mov %l0,%o0
X mov 25,%o2
X mov 24,%o3
X call s_copy,0
X nop
X add %fp,-88,%o0
X add %fp,-20,%o2
X mov 25,%o1
X call G77_ctime_0,0
X nop
X sethi %hi(__g77_cilist_0.0),%o1
X or %o1,%lo(__g77_cilist_0.0),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC2),%o3
X or %o3,%lo(.LLC2),%o2
X mov 13,%o3
X call do_lio,0
X nop
X add %fp,-56,%o2
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o3
X or %o3,%lo(.LLC1),%o1
X mov 25,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X sethi %hi(__g77_cilist_1.1),%o1
X or %o1,%lo(__g77_cilist_1.1),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC3),%o3
X or %o3,%lo(.LLC3),%o2
X mov 13,%o3
X call do_lio,0
X nop
X add %fp,-88,%o2
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o3
X or %o3,%lo(.LLC1),%o1
X mov 25,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X add %fp,-56,%o0
X add %fp,-88,%o1
X mov 25,%o2
X mov 25,%o3
X call s_cmp,0
X nop
X cmp %o0,0
X be .LL2
X nop
X sethi %hi(__g77_cilist_2.2),%o1
X or %o1,%lo(__g77_cilist_2.2),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC4),%o3
X or %o3,%lo(.LLC4),%o2
X mov 33,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X.LL2:
X sethi %hi(__g77_cilist_3.3),%o1
X or %o1,%lo(__g77_cilist_3.3),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC5),%o3
X or %o3,%lo(.LLC5),%o2
X mov 5,%o3
X call do_lio,0
X nop
X add %fp,-24,%o2
X sethi %hi(.LLC6),%o1
X or %o1,%lo(.LLC6),%o0
X sethi %hi(.LLC1),%o3
X or %o3,%lo(.LLC1),%o1
X mov 8,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X sethi %hi(.LLC7),%o1
X or %o1,%lo(.LLC7),%o0
X mov 0,%o1
X call s_stop,0
X nop
X.LL1:
X ret
X restore
X.LLfe1:
X .size MAIN__,.LLfe1-MAIN__
X .ident "GCC: (GNU) egcs-2.91.57 19980901 (egcs-1.1 release)"
SHAR_EOF
$shar_touch -am 0503185399 'ctime2.O0.s' &&
chmod 0600 'ctime2.O0.s' ||
$echo 'restore of' 'ctime2.O0.s' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime2.O0.s:' 'MD5 check failed'
009d0b7598bf751ce1401fcd84cbc241 ctime2.O0.s
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime2.O0.s'`"
test 3291 -eq "$shar_count" ||
$echo 'ctime2.O0.s:' 'original size' '3291,' 'current size' "$shar_count!"
fi
fi
# ============= ctime2.O0.x ==============
if test -f 'ctime2.O0.x' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime2.O0.x' '(file already exists)'
else
$echo 'x -' extracting 'ctime2.O0.x' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime2.O0.x' &&
X CTIME() = Mon May 3 18:53:22 1999
X CALL CTIME = Wed Dec 31 19:00:00 1969
X CTIME() disagrees with CALL CTIME
X I is 925772002
SHAR_EOF
$shar_touch -am 0503185399 'ctime2.O0.x' &&
chmod 0600 'ctime2.O0.x' ||
$echo 'restore of' 'ctime2.O0.x' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime2.O0.x:' 'MD5 check failed'
aa241842465511018b0fa381f90d6b73 ctime2.O0.x
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime2.O0.x'`"
test 132 -eq "$shar_count" ||
$echo 'ctime2.O0.x:' 'original size' '132,' 'current size' "$shar_count!"
fi
fi
# ============= ctime2.O2.s ==============
if test -f 'ctime2.O2.s' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime2.O2.s' '(file already exists)'
else
$echo 'x -' extracting 'ctime2.O2.s' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime2.O2.s' &&
X .file "ctime2.f"
gcc2_compiled.:
X.section ".data"
X .align 4
X .type __g77_cilist_0.0,#object
X .size __g77_cilist_0.0,20
__g77_cilist_0.0:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC2:
X .ascii "CTIME() = "
X.section ".data"
X .align 4
X .type __g77_cilist_1.1,#object
X .size __g77_cilist_1.1,20
__g77_cilist_1.1:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC3:
X .ascii "CALL CTIME = "
X.section ".data"
X .align 4
X .type __g77_cilist_2.2,#object
X .size __g77_cilist_2.2,20
__g77_cilist_2.2:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC4:
X .ascii "CTIME() disagrees with CALL CTIME"
X.section ".data"
X .align 4
X .type __g77_cilist_3.3,#object
X .size __g77_cilist_3.3,20
__g77_cilist_3.3:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC5:
X .ascii "I is "
X .align 8
X.LLC7:
X .align 4
X.LLC0:
X .uaword 9
X .align 4
X.LLC1:
X .uaword 1
X .align 4
X.LLC6:
X .uaword 14
X.section ".text"
X .align 4
X .global MAIN__
X .type MAIN__,#function
X .proc 020
MAIN__:
X !#PROLOGUE# 0
X save %sp,-208,%sp
X !#PROLOGUE# 1
X call G77_time_0,0
X nop
X add %fp,-112,%l4
X sra %o1,31,%o2
X st %o1,[%l4+4]
X add %fp,-104,%l0
X st %o2,[%fp-112]
X add %fp,-48,%l2
X add %fp,-108,%l1
X mov %l0,%o0
X mov 24,%o1
X call G77_ctime_0,0
X mov %l4,%o2
X mov %l0,%o1
X mov %l2,%o0
X mov 25,%o2
X call s_copy,0
X mov 24,%o3
X add %fp,-80,%l0
X mov %l1,%o2
X mov %l0,%o0
X call G77_ctime_0,0
X mov 25,%o1
X sethi %hi(__g77_cilist_0.0),%o0
X call s_wsle,0
X or %o0,%lo(__g77_cilist_0.0),%o0
X sethi %hi(.LLC0),%o1
X sethi %hi(.LLC1),%o0
X or %o1,%lo(.LLC0),%l3
X or %o0,%lo(.LLC1),%l1
X sethi %hi(.LLC2),%o2
X or %o2,%lo(.LLC2),%o2
X mov %l3,%o0
X mov %l1,%o1
X call do_lio,0
X mov 13,%o3
X mov %l3,%o0
X mov %l1,%o1
X mov %l2,%o2
X call do_lio,0
X mov 25,%o3
X call e_wsle,0
X nop
X sethi %hi(__g77_cilist_1.1),%o0
X call s_wsle,0
X or %o0,%lo(__g77_cilist_1.1),%o0
X sethi %hi(.LLC3),%o2
X or %o2,%lo(.LLC3),%o2
X mov %l3,%o0
X mov %l1,%o1
X call do_lio,0
X mov 13,%o3
X mov %l3,%o0
X mov %l1,%o1
X mov %l0,%o2
X call do_lio,0
X mov 25,%o3
X call e_wsle,0
X nop
X mov %l2,%o0
X mov %l0,%o1
X mov 25,%o2
X call s_cmp,0
X mov 25,%o3
X cmp %o0,0
X be,a .LL3
X sethi %hi(__g77_cilist_3.3),%o0
X sethi %hi(__g77_cilist_2.2),%o0
X call s_wsle,0
X or %o0,%lo(__g77_cilist_2.2),%o0
X sethi %hi(.LLC4),%o2
X or %o2,%lo(.LLC4),%o2
X mov %l3,%o0
X mov %l1,%o1
X call do_lio,0
X mov 33,%o3
X call e_wsle,0
X nop
X sethi %hi(__g77_cilist_3.3),%o0
X.LL3:
X call s_wsle,0
X or %o0,%lo(__g77_cilist_3.3),%o0
X sethi %hi(.LLC5),%o2
X mov %l3,%o0
X or %o2,%lo(.LLC5),%o2
X mov %l1,%o1
X call do_lio,0
X mov 5,%o3
X sethi %hi(.LLC6),%o0
X or %o0,%lo(.LLC6),%o0
X mov %l1,%o1
X mov %l4,%o2
X call do_lio,0
X mov 8,%o3
X call e_wsle,0
X nop
X sethi %hi(.LLC7),%o0
X or %o0,%lo(.LLC7),%o0
X call s_stop,0
X mov 0,%o1
X.LLfe1:
X .size MAIN__,.LLfe1-MAIN__
X .ident "GCC: (GNU) egcs-2.91.57 19980901 (egcs-1.1 release)"
SHAR_EOF
$shar_touch -am 0503185599 'ctime2.O2.s' &&
chmod 0600 'ctime2.O2.s' ||
$echo 'restore of' 'ctime2.O2.s' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime2.O2.s:' 'MD5 check failed'
21696d906d9c4c2a529c881463861ad9 ctime2.O2.s
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime2.O2.s'`"
test 2924 -eq "$shar_count" ||
$echo 'ctime2.O2.s:' 'original size' '2924,' 'current size' "$shar_count!"
fi
fi
# ============= ctime2.O2.x ==============
if test -f 'ctime2.O2.x' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime2.O2.x' '(file already exists)'
else
$echo 'x -' extracting 'ctime2.O2.x' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime2.O2.x' &&
X CTIME() = Mon May 3 18:55:10 1999
X CALL CTIME = Thu Mar 3 05:32:00 2011
X CTIME() disagrees with CALL CTIME
X I is 925772110
SHAR_EOF
$shar_touch -am 0503185599 'ctime2.O2.x' &&
chmod 0600 'ctime2.O2.x' ||
$echo 'restore of' 'ctime2.O2.x' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime2.O2.x:' 'MD5 check failed'
098bbcf4248ef3099732a0365d901c15 ctime2.O2.x
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime2.O2.x'`"
test 132 -eq "$shar_count" ||
$echo 'ctime2.O2.x:' 'original size' '132,' 'current size' "$shar_count!"
fi
fi
# ============= ctime2.f ==============
if test -f 'ctime2.f' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime2.f' '(file already exists)'
else
$echo 'x -' extracting 'ctime2.f' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime2.f' &&
X implicit none
X intrinsic time, ctime
X integer*8 i
X character ctim*25, ctim2*25
X
X i = time ()
X ctim = ctime (i)
X call ctime (ctim2, i)
X
X print *, 'CTIME() = ', ctim
X print *, 'CALL CTIME = ', ctim2
X if (ctim .ne. ctim2) then
X print *, 'CTIME() disagrees with CALL CTIME'
X end if
X print *, 'I is ', i
X
X end
SHAR_EOF
$shar_touch -am 0503185099 'ctime2.f' &&
chmod 0600 'ctime2.f' ||
$echo 'restore of' 'ctime2.f' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime2.f:' 'MD5 check failed'
f03ae529d1b8b877f0fdfccefae85b37 ctime2.f
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime2.f'`"
test 382 -eq "$shar_count" ||
$echo 'ctime2.f:' 'original size' '382,' 'current size' "$shar_count!"
fi
fi
# ============= ctime3.O0.s ==============
if test -f 'ctime3.O0.s' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime3.O0.s' '(file already exists)'
else
$echo 'x -' extracting 'ctime3.O0.s' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime3.O0.s' &&
X .file "ctime3.f"
gcc2_compiled.:
X.section ".data"
X .align 4
X .type __g77_cilist_0.0,#object
X .size __g77_cilist_0.0,20
__g77_cilist_0.0:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC2:
X .ascii "CTIME() = "
X.section ".data"
X .align 4
X .type __g77_cilist_1.1,#object
X .size __g77_cilist_1.1,20
__g77_cilist_1.1:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC3:
X .ascii "CALL CTIME = "
X.section ".data"
X .align 4
X .type __g77_cilist_2.2,#object
X .size __g77_cilist_2.2,20
__g77_cilist_2.2:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC4:
X .ascii "CTIME() disagrees with CALL CTIME"
X.section ".data"
X .align 4
X .type __g77_cilist_3.3,#object
X .size __g77_cilist_3.3,20
__g77_cilist_3.3:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC5:
X .ascii "I is "
X .align 8
X.LLC7:
X .align 4
X.LLC0:
X .uaword 9
X .align 4
X.LLC1:
X .uaword 1
X .align 4
X.LLC6:
X .uaword 3
X.section ".text"
X .align 4
X .global MAIN__
X .type MAIN__,#function
X .proc 020
MAIN__:
X !#PROLOGUE# 0
X save %sp,-216,%sp
X !#PROLOGUE# 1
X call G77_time_0,0
X nop
X st %o1,[%fp-20]
X add %fp,-88,%o0
X add %fp,-20,%o2
X mov 25,%o1
X call G77_ctime_0,0
X nop
X add %fp,-56,%l0
X add %fp,-112,%o0
X ld [%fp-20],%o4
X sra %o4,31,%o1
X ld [%fp-20],%o3
X mov %o1,%o2
X std %o2,[%fp-120]
X add %fp,-120,%o2
X mov 24,%o1
X call G77_ctime_0,0
X nop
X add %fp,-112,%o1
X mov %l0,%o0
X mov 25,%o2
X mov 24,%o3
X call s_copy,0
X nop
X sethi %hi(__g77_cilist_0.0),%o1
X or %o1,%lo(__g77_cilist_0.0),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC2),%o3
X or %o3,%lo(.LLC2),%o2
X mov 13,%o3
X call do_lio,0
X nop
X add %fp,-56,%o2
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o3
X or %o3,%lo(.LLC1),%o1
X mov 25,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X sethi %hi(__g77_cilist_1.1),%o1
X or %o1,%lo(__g77_cilist_1.1),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC3),%o3
X or %o3,%lo(.LLC3),%o2
X mov 13,%o3
X call do_lio,0
X nop
X add %fp,-88,%o2
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o3
X or %o3,%lo(.LLC1),%o1
X mov 25,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X add %fp,-56,%o0
X add %fp,-88,%o1
X mov 25,%o2
X mov 25,%o3
X call s_cmp,0
X nop
X cmp %o0,0
X be .LL2
X nop
X sethi %hi(__g77_cilist_2.2),%o1
X or %o1,%lo(__g77_cilist_2.2),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC4),%o3
X or %o3,%lo(.LLC4),%o2
X mov 33,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X.LL2:
X sethi %hi(__g77_cilist_3.3),%o1
X or %o1,%lo(__g77_cilist_3.3),%o0
X call s_wsle,0
X nop
X sethi %hi(.LLC0),%o1
X or %o1,%lo(.LLC0),%o0
X sethi %hi(.LLC1),%o2
X or %o2,%lo(.LLC1),%o1
X sethi %hi(.LLC5),%o3
X or %o3,%lo(.LLC5),%o2
X mov 5,%o3
X call do_lio,0
X nop
X add %fp,-20,%o2
X sethi %hi(.LLC6),%o1
X or %o1,%lo(.LLC6),%o0
X sethi %hi(.LLC1),%o3
X or %o3,%lo(.LLC1),%o1
X mov 4,%o3
X call do_lio,0
X nop
X call e_wsle,0
X nop
X sethi %hi(.LLC7),%o1
X or %o1,%lo(.LLC7),%o0
X mov 0,%o1
X call s_stop,0
X nop
X.LL1:
X ret
X restore
X.LLfe1:
X .size MAIN__,.LLfe1-MAIN__
X .ident "GCC: (GNU) egcs-2.91.57 19980901 (egcs-1.1 release)"
SHAR_EOF
$shar_touch -am 0503185399 'ctime3.O0.s' &&
chmod 0600 'ctime3.O0.s' ||
$echo 'restore of' 'ctime3.O0.s' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime3.O0.s:' 'MD5 check failed'
52284095f0b79d7d38333d648e061246 ctime3.O0.s
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime3.O0.s'`"
test 3340 -eq "$shar_count" ||
$echo 'ctime3.O0.s:' 'original size' '3340,' 'current size' "$shar_count!"
fi
fi
# ============= ctime3.O0.x ==============
if test -f 'ctime3.O0.x' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime3.O0.x' '(file already exists)'
else
$echo 'x -' extracting 'ctime3.O0.x' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime3.O0.x' &&
X CTIME() = Mon May 3 18:53:23 1999
X CALL CTIME = Wed Dec 31 19:00:00 1969
X CTIME() disagrees with CALL CTIME
X I is 925772003
SHAR_EOF
$shar_touch -am 0503185399 'ctime3.O0.x' &&
chmod 0600 'ctime3.O0.x' ||
$echo 'restore of' 'ctime3.O0.x' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime3.O0.x:' 'MD5 check failed'
66d61dacd7d1cea7c58934e699c10f53 ctime3.O0.x
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime3.O0.x'`"
test 132 -eq "$shar_count" ||
$echo 'ctime3.O0.x:' 'original size' '132,' 'current size' "$shar_count!"
fi
fi
# ============= ctime3.O2.s ==============
if test -f 'ctime3.O2.s' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime3.O2.s' '(file already exists)'
else
$echo 'x -' extracting 'ctime3.O2.s' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime3.O2.s' &&
X .file "ctime3.f"
gcc2_compiled.:
X.section ".data"
X .align 4
X .type __g77_cilist_0.0,#object
X .size __g77_cilist_0.0,20
__g77_cilist_0.0:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC2:
X .ascii "CTIME() = "
X.section ".data"
X .align 4
X .type __g77_cilist_1.1,#object
X .size __g77_cilist_1.1,20
__g77_cilist_1.1:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC3:
X .ascii "CALL CTIME = "
X.section ".data"
X .align 4
X .type __g77_cilist_2.2,#object
X .size __g77_cilist_2.2,20
__g77_cilist_2.2:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC4:
X .ascii "CTIME() disagrees with CALL CTIME"
X.section ".data"
X .align 4
X .type __g77_cilist_3.3,#object
X .size __g77_cilist_3.3,20
__g77_cilist_3.3:
X .uaword 0
X .uaword 6
X .uaword 0
X .uaword 0
X .uaword 0
X.section ".rodata"
X .align 8
X.LLC5:
X .ascii "I is "
X .align 8
X.LLC7:
X .align 4
X.LLC0:
X .uaword 9
X .align 4
X.LLC1:
X .uaword 1
X .align 4
X.LLC6:
X .uaword 3
X.section ".text"
X .align 4
X .global MAIN__
X .type MAIN__,#function
X .proc 020
MAIN__:
X !#PROLOGUE# 0
X save %sp,-224,%sp
X !#PROLOGUE# 1
X call G77_time_0,0
X nop
X add %fp,-80,%l2
X st %o1,[%fp-84]
X st %o1,[%fp-124]
X mov %l2,%o0
X mov 25,%o1
X call G77_ctime_0,0
X add %fp,-84,%o2
X ld [%fp-124],%o3
X mov %o3,%o1
X sra %o3,31,%o0
X add %fp,-112,%l0
X std %o0,[%fp-120]
X add %fp,-48,%l1
X mov %l0,%o0
X mov 24,%o1
X call G77_ctime_0,0
X add %fp,-120,%o2
X mov %l0,%o1
X mov %l1,%o0
X mov 25,%o2
X call s_copy,0
X mov 24,%o3
X sethi %hi(__g77_cilist_0.0),%o0
X call s_wsle,0
X or %o0,%lo(__g77_cilist_0.0),%o0
X sethi %hi(.LLC0),%o1
X sethi %hi(.LLC1),%o0
X or %o1,%lo(.LLC0),%l3
X or %o0,%lo(.LLC1),%l0
X sethi %hi(.LLC2),%o2
X or %o2,%lo(.LLC2),%o2
X mov %l3,%o0
X mov %l0,%o1
X call do_lio,0
X mov 13,%o3
X mov %l3,%o0
X mov %l0,%o1
X mov %l1,%o2
X call do_lio,0
X mov 25,%o3
X call e_wsle,0
X nop
X sethi %hi(__g77_cilist_1.1),%o0
X call s_wsle,0
X or %o0,%lo(__g77_cilist_1.1),%o0
X sethi %hi(.LLC3),%o2
X or %o2,%lo(.LLC3),%o2
X mov %l3,%o0
X mov %l0,%o1
X call do_lio,0
X mov 13,%o3
X mov %l3,%o0
X mov %l0,%o1
X mov %l2,%o2
X call do_lio,0
X mov 25,%o3
X call e_wsle,0
X nop
X mov %l1,%o0
X mov %l2,%o1
X mov 25,%o2
X call s_cmp,0
X mov 25,%o3
X cmp %o0,0
X be,a .LL3
X sethi %hi(__g77_cilist_3.3),%o0
X sethi %hi(__g77_cilist_2.2),%o0
X call s_wsle,0
X or %o0,%lo(__g77_cilist_2.2),%o0
X sethi %hi(.LLC4),%o2
X or %o2,%lo(.LLC4),%o2
X mov %l3,%o0
X mov %l0,%o1
X call do_lio,0
X mov 33,%o3
X call e_wsle,0
X nop
X sethi %hi(__g77_cilist_3.3),%o0
X.LL3:
X call s_wsle,0
X or %o0,%lo(__g77_cilist_3.3),%o0
X sethi %hi(.LLC5),%o2
X mov %l3,%o0
X or %o2,%lo(.LLC5),%o2
X mov %l0,%o1
X call do_lio,0
X mov 5,%o3
X sethi %hi(.LLC6),%o0
X or %o0,%lo(.LLC6),%o0
X mov %l0,%o1
X add %fp,-124,%o2
X call do_lio,0
X mov 4,%o3
X call e_wsle,0
X nop
X sethi %hi(.LLC7),%o0
X or %o0,%lo(.LLC7),%o0
X call s_stop,0
X mov 0,%o1
X.LLfe1:
X .size MAIN__,.LLfe1-MAIN__
X .ident "GCC: (GNU) egcs-2.91.57 19980901 (egcs-1.1 release)"
SHAR_EOF
$shar_touch -am 0503185599 'ctime3.O2.s' &&
chmod 0600 'ctime3.O2.s' ||
$echo 'restore of' 'ctime3.O2.s' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime3.O2.s:' 'MD5 check failed'
fb897318f30e14aaa5c1217bef37343f ctime3.O2.s
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime3.O2.s'`"
test 2952 -eq "$shar_count" ||
$echo 'ctime3.O2.s:' 'original size' '2952,' 'current size' "$shar_count!"
fi
fi
# ============= ctime3.O2.x ==============
if test -f 'ctime3.O2.x' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime3.O2.x' '(file already exists)'
else
$echo 'x -' extracting 'ctime3.O2.x' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime3.O2.x' &&
X CTIME() = Mon May 3 18:55:11 1999
X CALL CTIME = Wed Dec 31 19:00:01 1969
X CTIME() disagrees with CALL CTIME
X I is 925772111
SHAR_EOF
$shar_touch -am 0503185599 'ctime3.O2.x' &&
chmod 0600 'ctime3.O2.x' ||
$echo 'restore of' 'ctime3.O2.x' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime3.O2.x:' 'MD5 check failed'
fcdd0e44e9511e8af1f5b645cbacf995 ctime3.O2.x
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime3.O2.x'`"
test 132 -eq "$shar_count" ||
$echo 'ctime3.O2.x:' 'original size' '132,' 'current size' "$shar_count!"
fi
fi
# ============= ctime3.f ==============
if test -f 'ctime3.f' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ctime3.f' '(file already exists)'
else
$echo 'x -' extracting 'ctime3.f' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'ctime3.f' &&
X implicit none
X intrinsic time, ctime
X integer i
X character ctim*25, ctim2*25
X
X i = time ()
X call ctime (ctim2, i)
X ctim = ctime (i)
X
X print *, 'CTIME() = ', ctim
X print *, 'CALL CTIME = ', ctim2
X if (ctim .ne. ctim2) then
X print *, 'CTIME() disagrees with CALL CTIME'
X end if
X print *, 'I is ', i
X
X end
SHAR_EOF
$shar_touch -am 0503185199 'ctime3.f' &&
chmod 0600 'ctime3.f' ||
$echo 'restore of' 'ctime3.f' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'ctime3.f:' 'MD5 check failed'
2bde7a166b8ec2d8e30f1956267d7f2c ctime3.f
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'ctime3.f'`"
test 380 -eq "$shar_count" ||
$echo 'ctime3.f:' 'original size' '380,' 'current size' "$shar_count!"
fi
fi
rm -fr _sh18667
exit 0
More information about the Gcc-bugs
mailing list