14 lines
382 B
Text
14 lines
382 B
Text
|
Already fixed upstream.
|
||
|
|
|
||
|
|
Index: m4/aclocal_fc.f90
|
||
|
|
--- m4/aclocal_fc.f90.orig
|
||
|
|
+++ m4/aclocal_fc.f90
|
||
|
|
@@ -150,6 +150,7 @@ PROGRAM FC_AVAIL_KINDS
|
||
|
|
WRITE(stdout,'(I0)') max_decimal_prec
|
||
|
|
WRITE(stdout,'(I0)') num_ikinds
|
||
|
|
WRITE(stdout,'(I0)') num_rkinds
|
||
|
|
+ CLOSE(stdout)
|
||
|
|
END PROGRAM FC_AVAIL_KINDS
|
||
|
|
!---- END ----- Determine the available KINDs for REALs and INTEGERs
|
||
|
|
|