13 lines
382 B
Text
13 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
|
|
|