| c { dg-do compile } |
| * Date: Fri, 17 Apr 1998 14:12:51 +0200 |
| * From: Jean-Paul Jeannot <jeannot@gx-tech.fr> |
| * Organization: GX Technology France |
| * To: egcs-bugs@cygnus.com |
| * Subject: identified bug in g77 on Alpha |
| * |
| * Dear Sir, |
| * |
| * You will find below the assembly code of a simple Fortran routine which |
| * crashes with segmentation fault when storing the first element |
| * in( jT_f-hd_T ) = Xsp |
| * whereas everything is fine when commenting this line. |
| * |
| * The assembly code (generated with |
| * -ffast-math -fexpensive-optimizations -fomit-frame-pointer -fno-inline |
| * or with -O5) |
| * uses a zapnot instruction to copy an address. |
| * BUT the zapnot parameter is 15 (copuing 4 bytes) instead of 255 (to copy |
| * 8 bytes). |
| * |
| * I guess this is typically a 64 bit issue. As, from my understanding, |
| * zapnots are used a lot to copy registers, this may create problems |
| * elsewhere. |
| * |
| * Thanks for your help |
| * |
| * Jean-Paul Jeannot |
| * |
| subroutine simul_trace( in, Xsp, Ysp, Xrcv, Yrcv ) |
| |
| c Next declaration added on transfer to gfortran testsuite |
| integer hd_S, hd_Z, hd_T |
| |
| common /Idim/ jT_f, jT_l, nT, nT_dim |
| common /Idim/ jZ_f, jZ_l, nZ, nZ_dim |
| common /Idim/ jZ2_f, jZ2_l, nZ2, nZ2_dim |
| common /Idim/ jzs_f, jzs_l, nzs, nzs_dim, l_amp |
| common /Idim/ hd_S, hd_Z, hd_T |
| common /Idim/ nlay, nlayz |
| common /Idim/ n_work |
| common /Idim/ nb_calls |
| |
| real Xsp, Ysp, Xrcv, Yrcv |
| real in( jT_f-hd_T : jT_l ) |
| |
| in( jT_f-hd_T ) = Xsp |
| in( jT_f-hd_T + 1 ) = Ysp |
| in( jT_f-hd_T + 2 ) = Xrcv |
| in( jT_f-hd_T + 3 ) = Yrcv |
| end |
