Unexpected errors while compiling BLAS libray code

[Michael Riedl]

Hallo Gaius,

attached two files which are subsets of two much bigger modules.

The routines all fail with

mriedl@laptop:~/.../Numerik/quellen.iso/GM2err$make blas1
gm2 -c -fiso -flibs=iso -I 
/usr/local/gm2/lib/gcc/i686-pc-linux-gnu/8.2.0/m2/iso -I 
/usr/local/gm2/lib/gcc/i686-pc-linux-gnu/8.2.0/m2/pim -I 
/home/mriedl/Modula-2/InOut/quellen.git -L /usr/local/gm2/libs -O0 -g 
blas1.mod
../../gcc-8.2.0+gm2-git-latest/gm2/gcc-versionno/gcc/gm2/gm2-compiler/M2Base.def:1:procedure 
function is about to finish and no return statement has been executed
make: *** [blas1.o] Error 1n

I could identify that


         PROCEDURE cabs1(Z : COMPLEX16) : REAL8; (* Here the error 
occurs *)

          BEGIN
                RETURN ABS(RE(Z)) + ABS(IM(Z));
          END cabs1;

causes an error in all routines containng that (to be inlined) function. 
For the remaining procedures I cannot point closer to the code fragment 
at the moment.

Any idea ?


Thanks in advance

Michael

PS: I will try to prepare the other failed modules in a similar way in 
the next days - will then sent them step by step as I find time.

blas1.mod
Description: audio/mod

blas2.mod
Description: audio/mod