> C:\gfortran\james\intrinsics\func1>type abs.f90
> program abstest
> complex(10) c10
>
> c10 = ( 1.7951958020513104220_10, 2.6457513110645905904_10 )
> write(*,*) 'Alive to here'
> write(*,*) abs(c10)
> write(*,*) 'Survived the ordeal'
> end program abstest
>
> C:\gfortran\james\intrinsics\func1>gfortran abs.f90 -oabs
>
> C:\gfortran\james\intrinsics\func1>abs
> Alive to here
>
> C:\gfortran\james\intrinsics\func1>
>

> This one works for me on FreeBSD with versions 4.2.3 and
> 4.4.0. I suspect your version of mingw or win64 has a broken
> printf/scanf in libc with long doubles.
>
> --

>
> However, on mingw-w64, the program dies when calling the function abs().

> we modify james' program as:
>
> program abstest
> complex(10) c10
> complex(10) cc
>
> c10 = ( 1.7951958020513104220_10, 2.6457513110645905904_10 )
> write(*,*) 'Alive to here'
> cc = abs(c10)
> write(*,*) 'Survived the ordeal'
> end program abstest
>

>
> "Steven G. Kargl" troutmask.apl.washington.edu> wrote in message
> news:g0k59r$1c5$1@gnus01.u.washington.edu...

>> This one works for me on FreeBSD with versions 4.2.3 and
>> 4.4.0. I suspect your version of mingw or win64 has a broken
>> printf/scanf in libc with long doubles.
>>

>
> This is not a problem with printf/scanf. The problem is on the function
> "abs" on mingw-w64. On mingw32, everything is fine. See the following:

> So mingw-w64 or win64 don't supply a funtion cabsl() funtion?

> Try the following.

> So mingw-w64 or win64 don't supply a funtion cabsl() funtion?
> Try the following.
>
> #include
> #include
> #include
> int main(void)
> {
> long complex z;
> long double x;
> z = 1. + 2 * I;
> x = cabsl(z);
> printf("cabsl(%%Le,%%Le) = %%Le\n", creall(z), cimagl(z), x);
> return 0;
> }
>

> That will indeed help. James, can you also run the following modified
> program?
>
> #include
> #include
> #include
> int main(void)
> {
> long complex z;
> long double x;
> z = 1. + 2 * I;
> x = __builtin_cabsl(z);
> printf("cabsl(%%Le,%%Le) = %%Le\n", creall(z), cimagl(z), x);
> return 0;
> }
>
> --

>
> I think you are right. I run your example on W64. The result is as:
>
> C:\temp\c>type kargl.c
> #include
> #include
> #include
> int main(void)
> {
> long complex z;
> long double x;
> printf("I am at A.\n");
> z = 1. + 2 * I;
> printf("I am at B.\n");
> x = cabsl(z);

>> So mingw-w64 or win64 don't supply a funtion cabsl() funtion?

> win64 doesn't, but mingw does. The problem has to be there. (If there
> simply weren't any cabsl function available, the program wouldn't link.)

>> Try the following.

> That will indeed help. James, can you also run the following modified
> program?