Bug 201149 – sci-chemistry/ccp4 fails because of an update to the IDATE function with gfortran 1.1.1

• Product: Gentoo Linux
• Status: RESOLVED DUPLICATE

[Description andrew 2007-12-03 21:10:50 UTC]

Taken verbatim from http://www.ccp4.ac.uk/problems.php
----

Refmac5 compilation fails on gfortran compilation
Date : 19/02/2007 
CCP4 Version : 6.0.2 
System : gfortran 
Level : fatal 
Status : fixed 
Bugzilla number : n/a
Compilation of Refmac5.2 with gfortran 4.1.1 (and possibly other versions?) fails with:

ccp4e.log:105:make[1]: *** [make_unix_ccp4.o] Error 1
ccp4e.log:106:make: *** [srcdir] Error 2
ccp4e.log:115:make[1]: *** [make_unix_ccp4.o] Error 1
The fix is to change IDATE into UIDATE because gfortran 4.1.1 IDATE specifications have changed, UIDATE is a ccp4 routine which does not change:

.../ccp4/src/refmac5_$ cvs diff -r1.10 -r1.11 make_unix_ccp4.f
diff -r1.10 -r1.11
100c100
<       CALL IDATE(IMON,IDAY,IYR)
---
>       CALL UIDATE(IMON,IDAY,IYR)


Reproducible: Always

Steps to Reproduce:
1. Have gfortran 4.1.1 installed on x86
2. Emerge sci-chemistry/ccp4-6.0.1 OR sci-chemistry/ccp4-6.0.2

Actual Results:  
The emerge process dies with the following error:

In file /var/tmp/portage/sci-chemistry/ccp4-6.0.1-r1/work/ccp4-6.0.1/src/refmac5_/make_unix_ccp4.f:100

      CALL IDATE(IMON,IDAY,IYR)                                         
                                                                       1
Error: Too many arguments in call to 'idate' at (1)
make[1]: *** [make_unix_ccp4.o] Error 1
make[1]: Leaving directory `/var/tmp/portage/sci-chemistry/ccp4-6.0.1-r1/work/ccp4-6.0.1/src'
make: *** [srcdir] Error 2



Expected Results:  
It should have emerged properly.

begin patch -------

--- ccp4-6.0.2/src/refmac5_/make_unix_ccp4.f    2005-09-06 11:29:56.000000000 +0000
+++ ccp4-6.0.2/src/refmac5_/make_unix_ccp4.f    2007-12-03 22:29:06.000000000 +0000
@@ -97,7 +97,7 @@

       READ(CID,'(I2,1X,I2,1X,I2,2X)') IH(4),IH(3),IH(2)

-      CALL IDATE(IMON,IDAY,IYR)
+      CALL UIDATE(IMON,IDAY,IYR)
       IF(IYR.GE.99) THEN
         IYR=IYR+1900
       ELSE

--------- end patch

[Comment 1 Jakub Moc (RETIRED) 2007-12-03 21:14:52 UTC]

*** This bug has been marked as a duplicate of bug 201150 ***