つぶつぶなるままに

CL : fatal error C1033: プログラム データベース '' を開けません。

module hoge
  implicit none
  integer, parameter :: foo = 100
end module hoge

program main
  use hoge
  implicit none
  print *, foo
end program main

% frt -Am -c mod.f95
% frt -Am -c main.f95
% frt -o main main.o mod.o

% tar xvfJ patch-2.6.tar.xz
% cd patch-2.6
% env CFLAGS="-O2 -s" ./configure
% gmake
./update-version.sh: syntax error at line 24: `(' unexpected
gmake: *** [VERSION] Error 2

% cp -p update-version.sh update-version.sh.org
% emacs update-version.sh
% diff update-version.sh.org update-version.sh
23,25c23,25
< if test "`expr substr "$1" 1 1`" = v ; then
< set -- "`expr substr "$1" 2 "(" length "$1" - 1 ")"`" "$2"
< fi
---
> # if test "`expr substr "$1" 1 1`" = v ; then
> # set -- "`expr substr "$1" 2 "(" length "$1" - 1 ")"`" "$2"
> # fi

% gmake
:
:
gcc -std=gnu99 -o src/patch -O2 -s gl/lib/argmatch.o gl/lib/backupfile.o gl/lib/basename.o gl/lib/dirname.o gl/lib/stripslash.o gl/lib/error.o gl/lib/exitfail.o gl/lib/getopt.o gl/lib/getopt1.o gl/lib/hash.o gl/lib/quote.o gl/lib/quotearg.o gl/lib/safe-write.o gl/lib/xmalloc.o gl/lib/xstrndup.o gl/lib/full-write.o src/merge.o src/inp.o src/maketime.o src/partime.o src/patch.o src/pch.o src/quotesys.o src/util.o src/version.o
Undefined first referenced
symbol in file
strndup gl/lib/xstrndup.o
ld: fatal: Symbol referencing errors. No output written to src/patch
collect2: ld returned 1 exit status
gmake: *** [src/patch] Error 1

% emacs gl/lib/strndup.c
% less gl/lib/strndup.c
/* A replacement function, for systems that lack strndup.

Copyright (C) 1996, 1997, 1998, 2001, 2002, 2003, 2005, 2006, 2007
Free Software Foundation, Inc.

This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2, or (at your option) any
later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software Foundation,
Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */

#include <config.h>
#include <string.h>
#include <stdlib.h>

static size_t strnlen(const char *s, size_t max) {
register const char *p;
for(p = s; *p && max--; ++p);
return(p - s);
}

char *
strndup (char const *s, size_t n)
{
size_t len = strnlen (s, n);
char *new = malloc (len + 1);

if (new == NULL)
return NULL;

new[len] = '\0';
return memcpy (new, s, len);
}

% cp -p Makefile Makefile.org
% emacs Makefile
% diff Makefile.org Makefile
42c42
< LIBOBJS = ${LIBOBJDIR}argmatch$U.o ${LIBOBJDIR}backupfile$U.o ${LIBOBJDIR}basename$U.o ${LIBOBJDIR}dirname$U.o ${LIBOBJDIR}stripslash$U.o ${LIBOBJDIR}error$U.o ${LIBOBJDIR}exitfail$U.o ${LIBOBJDIR}getopt$U.o ${LIBOBJDIR}getopt1$U.o ${LIBOBJDIR}hash$U.o ${LIBOBJDIR}quote$U.o ${LIBOBJDIR}quotearg$U.o ${LIBOBJDIR}safe-write$U.o ${LIBOBJDIR}xmalloc$U.o ${LIBOBJDIR}xstrndup$U.o ${LIBOBJDIR}full-write$U.o
---
> LIBOBJS = ${LIBOBJDIR}argmatch$U.o ${LIBOBJDIR}backupfile$U.o ${LIBOBJDIR}basename$U.o ${LIBOBJDIR}dirname$U.o ${LIBOBJDIR}stripslash$U.o ${LIBOBJDIR}error$U.o ${LIBOBJDIR}exitfail$U.o ${LIBOBJDIR}getopt$U.o ${LIBOBJDIR}getopt1$U.o ${LIBOBJDIR}hash$U.o ${LIBOBJDIR}quote$U.o ${LIBOBJDIR}quotearg$U.o ${LIBOBJDIR}safe-write$U.o ${LIBOBJDIR}xmalloc$U.o ${LIBOBJDIR}xstrndup$U.o ${LIBOBJDIR}full-write$U.o gl/lib/strndup$U.o

% gmake
% gmake check
% chmod 755 install-sh
# gmake install
% patch --version
patch 2.6