compilation error

[Juergen Reuter]

The trunk does not compile any more:

/bin/sh ../../libtool --tag=FC   --mode=compile gfortran -I../misc -I../vamp/src  -g -O2 -c -o sf_circe1.lo  sf_circe1.f90
libtool: compile:  gfortran -I../misc -I../vamp/src -g -O2 -c sf_circe1.f90  -fno-common -o .libs/sf_circe1.o
sf_circe1.f90:280.16:

            (x, circe1_data%rng, circe1_data%pdg_in < 0, circe1_data%photon)
                1
Error: Procedure argument at (1) is INTENT(IN) while interface specifies INTENT(INOUT)
make[2]: *** [sf_circe1.lo] Error 1
make[1]: *** [all-recursive] Error 1
make: *** [all-recursive] Error 1

[kilian]

Sorry, guys ... should not have commited without make check. But the circe implementation might be checked (after Juergens quick fix), at least.

| Initializating integration for process ilc_zh:
******************************************************************************
******************************************************************************
*** WHIZARD BUG: Structure functions: colliding particles can't be determined
******************************************************************************
******************************************************************************
WHIZARD run aborted.

Will fix the regression, hopefully this evening.

NB: Hudson SHOULD run with nagfor as well, usually nagfor is more strict in adhering to the standard (why not this time?)

[kilian]

The previous problem wasn't a regression, it was a bug that just happened to stay undetected by the tests we had so far. Implementing CIRCE, I tried to fix the bug, but the fix was incomplete. Revised in r2653, now the tests run through.