Re: [Fortran] RFC: Patch to support STDCALL etc. (PR 34112) * PING *

[Steve Kargl <sgk at troutmask dot apl dot washington dot edu>]

On Fri, Jun 26, 2009 at 10:11:46PM +0200, Tobias Burnus wrote:
> Craig Powers schrieb:
> > Tobias Burnus wrote:
> >> I updated the patch (only gfortran.texi) based on Daniel's and Craig's
> >> comment.
> >> OK for the trunk?
> * PING *
> 
> Updated Crag's nits, otherwise unchanged. Can someone finish reviewing
> it? If not, what is needed to do so?
> 
> (I hope to get this patch tested by our Windows users - and I hope that
> we can also get a cygwin/mingw test case; I cannot do this myself as I
> do not have Windows.)
> 
> > Did you intentionally stick to the original wording, or overlook my
> > suggestion?
> The latter.
> 
> > Stray '"' character that I presume was accidentally copied from my
> > previous comments.
> Fixed.
> 
> Tobias

The test cases are failing on FreeBSD.  All of the stdcall stuff
is irrelevant on FreeBSD so one can xfail the tests; however,
I don't know if this is something to be concerned about with 
other targets.

-- 
Steve


PASS: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 38)
PASS: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 39)
PASS: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 40)
PASS: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 41)
PASS: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 42)
PASS: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 43)
PASS: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 44)
PASS: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 45)
PASS: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 46)
PASS: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 47)
FAIL: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 86)
FAIL: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 87)
FAIL: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 88)
FAIL: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 89)
FAIL: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 90)
FAIL: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 91)
FAIL: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 92)
FAIL: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 93)
FAIL: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 94)
FAIL: gfortran.dg/compiler-directive_1.f90  -O   (test for errors, line 95)
FAIL: gfortran.dg/compiler-directive_1.f90  -O  (test for excess errors)
Excess errors:
/usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_1.f90:8: Error: Two main PROGRAMs at (1) and (2)
/usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_1.f90:56: Error: Two main PROGRAMs at (1) and (2)

Executing on host: /usr/home/kargl/gcc/obj4x/gcc/testsuite/gfortran/../../gfortran -B/usr/home/kargl/gcc/obj4x/gcc/testsuite/gfortran/../../  -c  -o ilp3250453.o ilp3250453.c    (timeout = 300)
Executing on host: /usr/home/kargl/gcc/obj4x/gcc/testsuite/gfortran/../../gfortran -B/usr/home/kargl/gcc/obj4x/gcc/testsuite/gfortran/../../ /usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_2.f   -O   -pedantic-errors -S  -o compiler-directive_2.s    (timeout = 300)
/usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_2.f:9:0: error: fastcall and stdcall attributes are not compatible
/usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_2.f:20.72:

      subroutine test() ! { dg-error "fastcall and stdcall attributes ar
                                                                        1
/usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_2.f:9.72:

      subroutine test() ! { dg-error "fastcall and stdcall attributes ar
                                                                        2
Error: Global name 'test' at (1) is already being used as a SUBROUTINE at (2)
compiler exited with status 1
output is:
/usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_2.f:9:0: error: fastcall and stdcall attributes are not compatible
/usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_2.f:20.72:

      subroutine test() ! { dg-error "fastcall and stdcall attributes ar
                                                                        1
/usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_2.f:9.72:

      subroutine test() ! { dg-error "fastcall and stdcall attributes ar
                                                                        2
Error: Global name 'test' at (1) is already being used as a SUBROUTINE at (2)

PASS: gfortran.dg/compiler-directive_2.f  -O   (test for errors, line 9)
FAIL: gfortran.dg/compiler-directive_2.f  -O   (test for errors, line 20)
FAIL: gfortran.dg/compiler-directive_2.f  -O  (test for excess errors)
Excess errors:
/usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_2.f:20: Error: Global name 'test' at (1) is already being used as a SUBROUTINE at (2)
/usr/home/kargl/gcc/gcc4x/gcc/testsuite/gfortran.dg/compiler-directive_2.f:9: Error: Global name 'test' at (1) is already being used as a SUBROUTINE at (2)