diff -Nrcpad gcc-4.2.1/gcc/fortran/ChangeLog gcc-4.2.2/gcc/fortran/ChangeLog *** gcc-4.2.1/gcc/fortran/ChangeLog Thu Jul 19 14:29:26 2007 --- gcc-4.2.2/gcc/fortran/ChangeLog Sun Oct 7 21:19:56 2007 *************** *** 1,3 **** --- 1,46 ---- + 2007-10-07 Release Manager + + * GCC 4.2.2 released. + + 2007-08-29 Nick Clifton + + * arith.c: Change copyright header to refer to version 3 of the + GNU General Public License and to point readers at the COPYING3 + file and the FSF's license web page. + * openmp.c, interface.c, intrinsic.c, trans-array.c, trans-expr.c, + symbol.c, intrinsic.h, decl.c, trans-array.h, matchexp.c, + dump-parse-tree.c, trans-common.c, array.c, Make-lang.in, + trans-openmp.c, gfortran.h, error.c, lang.opt, data.c, + trans-const.c, trans-stmt.c, expr.c, trans-const.h, trans-stmt.h, + module.c, trans.c, scanner.c, trans-types.c, trans.h, + gfortranspec.c, trans-types.h, lang-specs.h, io.c, bbt.c, + resolve.c, f95-lang.c, st.c, iresolve.c, match.c, trans-decl.c, + trans-io.c, match.h, parse.c, arith.h, check.c, dependency.c, + parse.h, types.def, convert.c, dependency.h, primary.c, + trans-intrinsic.c, options.c, misc.c, simplify.c: Likewise. + + 2007-07-29 Daniel Franke + + Backport from trunk: + 2007-07-29 Daniel Franke + * invoke.texi: Removed -w from option summary. + + 2007-07-29 Daniel Franke + PR fortran/32879 + * intrinsic.texi (IRAND, RAND, RANDOM_NUMBER): Document + algorithm used for random number generator. + + 2007-07-13 Daniel Franke + * invoke.texi: Unified upper- and lower-case in menus. + (-w, -W): Removed, documented by gcc. + * intrinsic.texi: Unified Class-section entries, added + subroutine/function warning where appropiate. + + 2007-05-01 Daniel Franke + * intrinsic.texi (MVBITS): Changed class to elemental subroutine. + (RANDOM_NUMBER): Changed class to subroutine. + (HUGE, TINY): Changed class to inquiry function. + 2007-07-19 Release Manager * GCC 4.2.1 released. diff -Nrcpad gcc-4.2.1/gcc/fortran/Make-lang.in gcc-4.2.2/gcc/fortran/Make-lang.in *** gcc-4.2.1/gcc/fortran/Make-lang.in Tue Oct 10 23:48:09 2006 --- gcc-4.2.2/gcc/fortran/Make-lang.in Fri Aug 31 08:27:50 2007 *************** *** 1,6 **** # -*- makefile -*- # Top level makefile fragment for GNU gfortran, the GNU Fortran 95 compiler. ! # Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. # Contributed by Paul Brook --- 1,6 ---- # -*- makefile -*- # Top level makefile fragment for GNU gfortran, the GNU Fortran 95 compiler. ! # Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. # Contributed by Paul Brook *************** *** 8,14 **** #GCC 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. #GCC is distributed in the hope that it will be useful, --- 8,14 ---- #GCC 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 3, or (at your option) #any later version. #GCC is distributed in the hope that it will be useful, *************** *** 17,25 **** #GNU General Public License for more details. #You should have received a copy of the GNU General Public License ! #along with GCC; see the file COPYING. If not, write to ! #the Free Software Foundation, 51 Franklin Street, Fifth Floor, ! #Boston, MA 02110-1301, USA. # This file provides the language dependent support in the main Makefile. # Each language makefile fragment must provide the following targets: --- 17,24 ---- #GNU General Public License for more details. #You should have received a copy of the GNU General Public License ! #along with GCC; see the file COPYING3. If not see ! #. # This file provides the language dependent support in the main Makefile. # Each language makefile fragment must provide the following targets: diff -Nrcpad gcc-4.2.1/gcc/fortran/arith.c gcc-4.2.2/gcc/fortran/arith.c *** gcc-4.2.1/gcc/fortran/arith.c Fri Feb 16 12:19:01 2007 --- gcc-4.2.2/gcc/fortran/arith.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Compiler arithmetic ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught --- 1,5 ---- /* Compiler arithmetic ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Since target arithmetic must be done on the host, there has to be some way of evaluating arithmetic expressions as the host --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Since target arithmetic must be done on the host, there has to be some way of evaluating arithmetic expressions as the host diff -Nrcpad gcc-4.2.1/gcc/fortran/arith.h gcc-4.2.2/gcc/fortran/arith.h *** gcc-4.2.1/gcc/fortran/arith.h Fri Feb 16 12:19:01 2007 --- gcc-4.2.2/gcc/fortran/arith.h Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Compiler arithmetic header. ! Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Steven Bosscher --- 1,5 ---- /* Compiler arithmetic header. ! Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Steven Bosscher *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #ifndef GFC_ARITH_H #define GFC_ARITH_H --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #ifndef GFC_ARITH_H #define GFC_ARITH_H diff -Nrcpad gcc-4.2.1/gcc/fortran/array.c gcc-4.2.2/gcc/fortran/array.c *** gcc-4.2.1/gcc/fortran/array.c Mon Feb 12 07:34:51 2007 --- gcc-4.2.2/gcc/fortran/array.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Array things ! Copyright (C) 2000, 2001, 2002, 2004, 2005 Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Array things ! Copyright (C) 2000, 2001, 2002, 2004, 2005, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" #include "system.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" #include "system.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/bbt.c gcc-4.2.2/gcc/fortran/bbt.c *** gcc-4.2.1/gcc/fortran/bbt.c Sat Jun 25 00:40:37 2005 --- gcc-4.2.2/gcc/fortran/bbt.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Balanced binary trees using treaps. ! Copyright (C) 2000, 2002, 2003 Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,12 ---- /* Balanced binary trees using treaps. ! Copyright (C) 2000, 2002, 2003, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* The idea is to balance the tree using pseudorandom numbers. The main constraint on this implementation is that we have several --- 15,22 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* The idea is to balance the tree using pseudorandom numbers. The main constraint on this implementation is that we have several diff -Nrcpad gcc-4.2.1/gcc/fortran/check.c gcc-4.2.2/gcc/fortran/check.c *** gcc-4.2.1/gcc/fortran/check.c Thu Mar 8 21:49:59 2007 --- gcc-4.2.2/gcc/fortran/check.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Check functions ! Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Check functions ! Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* These functions check to see if an argument list is compatible with --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* These functions check to see if an argument list is compatible with diff -Nrcpad gcc-4.2.1/gcc/fortran/convert.c gcc-4.2.2/gcc/fortran/convert.c *** gcc-4.2.1/gcc/fortran/convert.c Sat Jun 25 00:40:37 2005 --- gcc-4.2.2/gcc/fortran/convert.c Fri Aug 31 08:27:50 2007 *************** *** 1,11 **** ! /* Language-level data type conversion for GNU C. ! Copyright (C) 1987, 1988, 1991, 1998, 2002 Free Software Foundation, Inc. This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,12 ---- ! /* Language-level data type conversion for GCC. ! Copyright (C) 1987, 1988, 1991, 1998, 2002, 2007 ! Free Software Foundation, Inc. This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 14,22 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* This file contains the functions for converting C expressions --- 15,22 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* This file contains the functions for converting C expressions diff -Nrcpad gcc-4.2.1/gcc/fortran/data.c gcc-4.2.2/gcc/fortran/data.c *** gcc-4.2.1/gcc/fortran/data.c Fri Nov 3 12:28:57 2006 --- gcc-4.2.2/gcc/fortran/data.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Supporting functions for resolving DATA statement. ! Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Contributed by Lifang Zeng This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Supporting functions for resolving DATA statement. ! Copyright (C) 2002, 2003, 2004, 2005, 2007 ! Free Software Foundation, Inc. Contributed by Lifang Zeng This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor,Boston, MA ! 02110-1301, USA. */ /* Notes for DATA statement implementation: --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Notes for DATA statement implementation: diff -Nrcpad gcc-4.2.1/gcc/fortran/decl.c gcc-4.2.2/gcc/fortran/decl.c *** gcc-4.2.1/gcc/fortran/decl.c Thu Mar 8 21:06:37 2007 --- gcc-4.2.2/gcc/fortran/decl.c Fri Aug 31 08:27:50 2007 *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/dependency.c gcc-4.2.2/gcc/fortran/dependency.c *** gcc-4.2.1/gcc/fortran/dependency.c Tue Jan 30 02:02:18 2007 --- gcc-4.2.2/gcc/fortran/dependency.c Fri Aug 31 08:27:50 2007 *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* dependency.c -- Expression dependency analysis code. */ /* There's probably quite a bit of duplication in this file. We currently --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* dependency.c -- Expression dependency analysis code. */ /* There's probably quite a bit of duplication in this file. We currently diff -Nrcpad gcc-4.2.1/gcc/fortran/dependency.h gcc-4.2.2/gcc/fortran/dependency.h *** gcc-4.2.1/gcc/fortran/dependency.h Thu Dec 21 18:54:37 2006 --- gcc-4.2.2/gcc/fortran/dependency.h Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Header for dependency analysis ! Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,12 ---- /* Header for dependency analysis ! Copyright (C) 2000, 2001, 2002, 2007 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ --- 15,22 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ diff -Nrcpad gcc-4.2.1/gcc/fortran/dump-parse-tree.c gcc-4.2.2/gcc/fortran/dump-parse-tree.c *** gcc-4.2.1/gcc/fortran/dump-parse-tree.c Thu Oct 19 04:51:14 2006 --- gcc-4.2.2/gcc/fortran/dump-parse-tree.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Parse tree dumper ! Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Steven Bosscher This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Parse tree dumper ! Copyright (C) 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Steven Bosscher This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Actually this is just a collection of routines that used to be --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Actually this is just a collection of routines that used to be diff -Nrcpad gcc-4.2.1/gcc/fortran/error.c gcc-4.2.2/gcc/fortran/error.c *** gcc-4.2.1/gcc/fortran/error.c Mon Mar 5 20:12:53 2007 --- gcc-4.2.2/gcc/fortran/error.c Fri Aug 31 08:27:50 2007 *************** *** 1,13 **** /* Handle errors. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software ! Foundation, Inc. Contributed by Andy Vaught & Niels Kristian Bech Jensen This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Handle errors. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught & Niels Kristian Bech Jensen This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Handle the inevitable errors. A major catch here is that things flagged as errors in one match subroutine can conceivably be legal --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Handle the inevitable errors. A major catch here is that things flagged as errors in one match subroutine can conceivably be legal diff -Nrcpad gcc-4.2.1/gcc/fortran/expr.c gcc-4.2.2/gcc/fortran/expr.c *** gcc-4.2.1/gcc/fortran/expr.c Sun Jan 14 14:49:50 2007 --- gcc-4.2.2/gcc/fortran/expr.c Fri Aug 31 08:27:50 2007 *************** *** 1,13 **** /* Routines for manipulation of expression nodes. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software ! Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Routines for manipulation of expression nodes. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" #include "system.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" #include "system.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/f95-lang.c gcc-4.2.2/gcc/fortran/f95-lang.c *** gcc-4.2.1/gcc/fortran/f95-lang.c Sun Nov 5 08:46:02 2006 --- gcc-4.2.2/gcc/fortran/f95-lang.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* gfortran backend interface ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Paul Brook. --- 1,5 ---- /* gfortran backend interface ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Paul Brook. *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* f95-lang.c-- GCC backend interface stuff */ --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* f95-lang.c-- GCC backend interface stuff */ diff -Nrcpad gcc-4.2.1/gcc/fortran/gfortran.h gcc-4.2.2/gcc/fortran/gfortran.h *** gcc-4.2.1/gcc/fortran/gfortran.h Mon Mar 5 20:12:53 2007 --- gcc-4.2.2/gcc/fortran/gfortran.h Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* gfortran header file ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught --- 1,5 ---- /* gfortran header file ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #ifndef GCC_GFORTRAN_H #define GCC_GFORTRAN_H --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #ifndef GCC_GFORTRAN_H #define GCC_GFORTRAN_H diff -Nrcpad gcc-4.2.1/gcc/fortran/gfortran.info gcc-4.2.2/gcc/fortran/gfortran.info *** gcc-4.2.1/gcc/fortran/gfortran.info Thu Jul 19 15:23:54 2007 --- gcc-4.2.2/gcc/fortran/gfortran.info Sun Oct 7 22:08:27 2007 *************** *** 1,5 **** This is doc/gfortran.info, produced by makeinfo version 4.8 from ! /scratch/mitchell/gcc-releases/gcc-4.2.1/gcc-4.2.1/gcc/fortran/gfortran.texi. Copyright (C) 1999-2007 Free Software Foundation, Inc. --- 1,5 ---- This is doc/gfortran.info, produced by makeinfo version 4.8 from ! /scratch/mitchell/gcc-releases/gcc-4.2.2/gcc-4.2.2/gcc/fortran/gfortran.texi. Copyright (C) 1999-2007 Free Software Foundation, Inc. *************** only one of these two forms, whichever o *** 331,349 **** * Runtime Options:: Influencing runtime behavior * Code Gen Options:: Specifying conventions for function calls, data layout and register usage. ! * Environment Variables:: Env vars that affect `gfortran'.  File: gfortran.info, Node: Option Summary, Next: Fortran Dialect Options, Up: Invoking GNU Fortran ! 2.1 Option Summary ================== Here is a summary of all the options specific to GNU Fortran, grouped by type. Explanations are in the following sections. _Fortran Language Options_ ! *Note Options Controlling Fortran Dialect: Fortran Dialect Options. -fall-intrinsics -ffree-form -fno-fixed-form -fdollar-ok -fimplicit-none -fmax-identifier-length -std=STD -fd-lines-as-code -fd-lines-as-comments --- 331,349 ---- * Runtime Options:: Influencing runtime behavior * Code Gen Options:: Specifying conventions for function calls, data layout and register usage. ! * Environment Variables:: Environment variables that affect `gfortran'.  File: gfortran.info, Node: Option Summary, Next: Fortran Dialect Options, Up: Invoking GNU Fortran ! 2.1 Option summary ================== Here is a summary of all the options specific to GNU Fortran, grouped by type. Explanations are in the following sections. _Fortran Language Options_ ! *Note Options controlling Fortran dialect: Fortran Dialect Options. -fall-intrinsics -ffree-form -fno-fixed-form -fdollar-ok -fimplicit-none -fmax-identifier-length -std=STD -fd-lines-as-code -fd-lines-as-comments *************** _Fortran Language Options_ *** 353,372 **** -fcray-pointer -fopenmp -frange-check -fno-backslash _Error and Warning Options_ ! *Note Options to Request or Suppress Errors and Warnings: Error and Warning Options. -fmax-errors=N -fsyntax-only -pedantic -pedantic-errors ! -w -Wall -Waliasing -Wampersand -Wcharacter-truncation -Wconversion -Wimplicit-interface -Wline-truncation -Wnonstd-intrinsics -Wsurprising ! -Wno-tabs -Wunderflow -W _Debugging Options_ ! *Note Options for Debugging Your Program or GCC: Debugging Options. -fdump-parse-tree -ffpe-trap=LIST _Directory Options_ ! *Note Options for Directory Search: Directory Options. -IDIR -JDIR -MDIR _Runtime Options_ --- 353,373 ---- -fcray-pointer -fopenmp -frange-check -fno-backslash _Error and Warning Options_ ! *Note Options to request or suppress errors and warnings: Error and Warning Options. -fmax-errors=N -fsyntax-only -pedantic -pedantic-errors ! -Wall -Waliasing -Wampersand -Wcharacter-truncation -Wconversion -Wimplicit-interface -Wline-truncation -Wnonstd-intrinsics -Wsurprising ! -Wno-tabs -Wunderflow _Debugging Options_ ! *Note Options for debugging your program or GNU Fortran: Debugging ! Options. -fdump-parse-tree -ffpe-trap=LIST _Directory Options_ ! *Note Options for directory search: Directory Options. -IDIR -JDIR -MDIR _Runtime Options_ *************** _Runtime Options_ *** 375,381 **** -fmax-subrecord-length=LENGTH _Code Generation Options_ ! *Note Options for Code Generation Conventions: Code Gen Options. -fno-automatic -ff2c -fno-underscoring -fsecond-underscore -fbounds-check -fmax-stack-var-size=N --- 376,382 ---- -fmax-subrecord-length=LENGTH _Code Generation Options_ ! *Note Options for code generation conventions: Code Gen Options. -fno-automatic -ff2c -fno-underscoring -fsecond-underscore -fbounds-check -fmax-stack-var-size=N *************** _Code Generation Options_ *** 396,402 ****  File: gfortran.info, Node: Fortran Dialect Options, Next: Error and Warning Options, Prev: Option Summary, Up: Invoking GNU Fortran ! 2.2 Options Controlling Fortran Dialect ======================================= The following options control the details of the Fortran dialect --- 397,403 ----  File: gfortran.info, Node: Fortran Dialect Options, Next: Error and Warning Options, Prev: Option Summary, Up: Invoking GNU Fortran ! 2.2 Options controlling Fortran dialect ======================================= The following options control the details of the Fortran dialect *************** accepted by the compiler: *** 513,519 ****  File: gfortran.info, Node: Error and Warning Options, Next: Debugging Options, Prev: Fortran Dialect Options, Up: Invoking GNU Fortran ! 2.3 Options to Request or Suppress Errors and Warnings ====================================================== Errors are diagnostic messages that report that the GNU Fortran compiler --- 514,520 ----  File: gfortran.info, Node: Error and Warning Options, Next: Debugging Options, Prev: Fortran Dialect Options, Up: Invoking GNU Fortran ! 2.3 Options to request or suppress errors and warnings ====================================================== Errors are diagnostic messages that report that the GNU Fortran compiler *************** produced by GNU Fortran: *** 568,576 **** Like `-pedantic', except that errors are produced rather than warnings. - `-w' - Inhibit all warning messages. - `-Wall' Enables commonly used warning options pertaining to usage that we recommend avoiding and that we believe are easy to avoid. This --- 569,574 ---- *************** produced by GNU Fortran: *** 644,654 **** `-Werror' Turns all warnings into errors. - `-W' - Turns on "extra warnings" and, if optimization is specified via - `-O', the `-Wuninitialized' option. (This might change in future - versions of GNU Fortran.) - *Note Options to Request or Suppress Errors and Warnings: (gcc)Error and Warning Options, for information on more options offered by the GBE shared by `gfortran', `gcc' and other GNU compilers. --- 642,647 ---- *************** Fortran. *** 659,665 ****  File: gfortran.info, Node: Debugging Options, Next: Directory Options, Prev: Error and Warning Options, Up: Invoking GNU Fortran ! 2.4 Options for Debugging Your Program or GNU Fortran ===================================================== GNU Fortran has various special options that are used for debugging --- 652,658 ----  File: gfortran.info, Node: Debugging Options, Next: Directory Options, Prev: Error and Warning Options, Up: Invoking GNU Fortran ! 2.4 Options for debugging your program or GNU Fortran ===================================================== GNU Fortran has various special options that are used for debugging *************** Options, for more information on debuggi *** 687,693 ****  File: gfortran.info, Node: Directory Options, Next: Runtime Options, Prev: Debugging Options, Up: Invoking GNU Fortran ! 2.5 Options for Directory Search ================================ These options affect how GNU Fortran searches for files specified by --- 680,686 ----  File: gfortran.info, Node: Directory Options, Next: Runtime Options, Prev: Debugging Options, Up: Invoking GNU Fortran ! 2.5 Options for directory search ================================ These options affect how GNU Fortran searches for files specified by *************** Fortran. *** 746,754 **** `-frecord-marker=LENGTH' Specify the length of record markers for unformatted files. Valid values for LENGTH are 4 and 8. Default is 4. _This is different ! from previous versions of gfortran_, which specified a default record marker length of 8 on most systems. If you want to read or ! write files compatible with earlier versions of gfortran, use `-frecord-marker=8'. `-fmax-subrecord-length=LENGTH' --- 739,747 ---- `-frecord-marker=LENGTH' Specify the length of record markers for unformatted files. Valid values for LENGTH are 4 and 8. Default is 4. _This is different ! from previous versions of `gfortran'_, which specified a default record marker length of 8 on most systems. If you want to read or ! write files compatible with earlier versions of `gfortran', use `-frecord-marker=8'. `-fmax-subrecord-length=LENGTH' *************** Fortran. *** 759,765 ****  File: gfortran.info, Node: Code Gen Options, Next: Environment Variables, Prev: Runtime Options, Up: Invoking GNU Fortran ! 2.7 Options for Code Generation Conventions =========================================== These machine-independent options control the interface conventions --- 752,758 ----  File: gfortran.info, Node: Code Gen Options, Next: Environment Variables, Prev: Runtime Options, Up: Invoking GNU Fortran ! 2.7 Options for code generation conventions =========================================== These machine-independent options control the interface conventions *************** Options, for information on more options *** 930,936 ****  File: gfortran.info, Node: Environment Variables, Prev: Code Gen Options, Up: Invoking GNU Fortran ! 2.8 Environment Variables Affecting `gfortran' ============================================== The `gfortran' compiler currently does not make use of any environment --- 923,929 ----  File: gfortran.info, Node: Environment Variables, Prev: Code Gen Options, Up: Invoking GNU Fortran ! 2.8 Environment variables affecting `gfortran' ============================================== The `gfortran' compiler currently does not make use of any environment *************** _Standard_: *** 1930,1936 **** GNU extension _Class_: ! Non-elemental subroutine _Syntax_: `CALL ABORT' --- 1923,1929 ---- GNU extension _Class_: ! Subroutine _Syntax_: `CALL ABORT' *************** _Standard_: *** 2398,2404 **** F95 and later _Class_: ! transformational function _Syntax_: `RESULT = ALL(MASK [, DIM])' --- 2391,2397 ---- F95 and later _Class_: ! Transformational function _Syntax_: `RESULT = ALL(MASK [, DIM])' *************** _Standard_: *** 2495,2501 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = AND(I, J)' --- 2488,2494 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = AND(I, J)' *************** _Standard_: *** 2583,2589 **** F95 and later _Class_: ! transformational function _Syntax_: `RESULT = ANY(MASK [, DIM])' --- 2576,2582 ---- F95 and later _Class_: ! Transformational function _Syntax_: `RESULT = ANY(MASK [, DIM])' *************** _Standard_: *** 3300,3306 **** GNU extension _Class_: ! Subroutine, non-elemental function _Syntax_: `CALL CHDIR(NAME [, STATUS])' --- 3293,3299 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL CHDIR(NAME [, STATUS])' *************** _Standard_: *** 3345,3351 **** GNU extension _Class_: ! Subroutine, non-elemental function _Syntax_: `CALL CHMOD(NAME, MODE[, STATUS])' --- 3338,3344 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL CHMOD(NAME, MODE[, STATUS])' *************** _Example_: *** 3375,3381 **** call chmod('test.dat','u+x',status) print *, 'Status: ', status end program chmod_test ! `CHMOD' as non-elemental function: program chmod_test implicit none integer :: status --- 3368,3374 ---- call chmod('test.dat','u+x',status) print *, 'Status: ', status end program chmod_test ! `CHMOD' as function: program chmod_test implicit none integer :: status *************** _Standard_: *** 3650,3656 **** F95 and later _Class_: ! transformational function _Syntax_: `RESULT = COUNT(MASK [, DIM])' --- 3643,3649 ---- F95 and later _Class_: ! Transformational function _Syntax_: `RESULT = COUNT(MASK [, DIM])' *************** _Standard_: *** 3789,3795 **** GNU extension _Class_: ! Subroutine _Syntax_: `CALL CTIME(TIME, RESULT)'. --- 3782,3788 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL CTIME(TIME, RESULT)'. *************** _Standard_: *** 4093,4099 **** F95 and later _Class_: ! transformational function _Syntax_: `RESULT = DOT_PRODUCT(X, Y)' --- 4086,4092 ---- F95 and later _Class_: ! Transformational function _Syntax_: `RESULT = DOT_PRODUCT(X, Y)' *************** _Description_: *** 4210,4217 **** less than previous values, during a single run of the compiled program. ! If `DTIME' is invoked as a function, it can not be invoked as a ! subroutine, and vice versa. TARRAY and RESULT are `INTENT(OUT)' and provide the following: --- 4203,4210 ---- less than previous values, during a single run of the compiled program. ! This intrinsic is provided in both subroutine and function forms; ! however, only one form can be used in any given program unit. TARRAY and RESULT are `INTENT(OUT)' and provide the following: *************** _Standard_: *** 4224,4230 **** GNU extension _Class_: ! Subroutine _Syntax_: `CALL DTIME(TARRAY, RESULT)'. --- 4217,4223 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL DTIME(TARRAY, RESULT)'. *************** _Description_: *** 4437,4444 **** less than previous values, during a single run of the compiled program. ! If `ETIME' is invoked as a function, it can not be invoked as a ! subroutine, and vice versa. TARRAY and RESULT are `INTENT(OUT)' and provide the following: --- 4430,4437 ---- less than previous values, during a single run of the compiled program. ! This intrinsic is provided in both subroutine and function forms; ! however, only one form can be used in any given program unit. TARRAY and RESULT are `INTENT(OUT)' and provide the following: *************** _Standard_: *** 4450,4456 **** GNU extension _Class_: ! Subroutine _Syntax_: `CALL ETIME(TARRAY, RESULT)'. --- 4443,4449 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL ETIME(TARRAY, RESULT)'. *************** _Description_: *** 4605,4612 **** `FDATE(DATE)' returns the current date (using the same format as `CTIME') in DATE. It is equivalent to `CALL CTIME(DATE, TIME())'. ! If `FDATE' is invoked as a function, it can not be invoked as a ! subroutine, and vice versa. DATE is an `INTENT(OUT)' `CHARACTER' variable. --- 4598,4605 ---- `FDATE(DATE)' returns the current date (using the same format as `CTIME') in DATE. It is equivalent to `CALL CTIME(DATE, TIME())'. ! This intrinsic is provided in both subroutine and function forms; ! however, only one form can be used in any given program unit. DATE is an `INTENT(OUT)' `CHARACTER' variable. *************** _Standard_: *** 4614,4620 **** GNU extension _Class_: ! Subroutine _Syntax_: `CALL FDATE(DATE)'. --- 4607,4613 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL FDATE(DATE)'. *************** _Description_: *** 4684,4700 **** normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic routine is provided for backwards compatibility with ! `g77'. GNU Fortran provides the Fortran 2003 Stream facility. ! Programmers should consider the use of new stream IO feature in ! new code for future portability. See also *Note Fortran 2003 ! status::. _Standard_: GNU extension _Class_: ! Non-elemental subroutine _Syntax_: `CALL FGET(C [, STATUS])' --- 4677,4696 ---- normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic is provided in both subroutine and function forms; ! however, only one form can be used in any given program unit. ! ! Note that the `FGET' intrinsic is provided for backwards ! compatibility with `g77'. GNU Fortran provides the Fortran 2003 ! Stream facility. Programmers should consider the use of new ! stream IO feature in new code for future portability. See also ! *Note Fortran 2003 status::. _Standard_: GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL FGET(C [, STATUS])' *************** _Description_: *** 4736,4752 **** record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic routine is provided for backwards compatibility with ! `g77'. GNU Fortran provides the Fortran 2003 Stream facility. ! Programmers should consider the use of new stream IO feature in ! new code for future portability. See also *Note Fortran 2003 ! status::. _Standard_: GNU extension _Class_: ! Non-elemental subroutine _Syntax_: `CALL FGETC(UNIT, C [, STATUS])' --- 4732,4751 ---- record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic is provided in both subroutine and function forms; ! however, only one form can be used in any given program unit. ! ! Note that the `FGET' intrinsic is provided for backwards ! compatibility with `g77'. GNU Fortran provides the Fortran 2003 ! Stream facility. Programmers should consider the use of new ! stream IO feature in new code for future portability. See also ! *Note Fortran 2003 status::. _Standard_: GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL FGETC(UNIT, C [, STATUS])' *************** _Standard_: *** 4830,4836 **** GNU extension _Class_: ! Non-elemental subroutine _Syntax_: `CALL FLUSH(UNIT)' --- 4829,4835 ---- GNU extension _Class_: ! Subroutine _Syntax_: `CALL FLUSH(UNIT)' *************** _Standard_: *** 4857,4863 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = FNUM(UNIT)' --- 4856,4862 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = FNUM(UNIT)' *************** _Description_: *** 4889,4905 **** normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic routine is provided for backwards compatibility with ! `g77'. GNU Fortran provides the Fortran 2003 Stream facility. ! Programmers should consider the use of new stream IO feature in ! new code for future portability. See also *Note Fortran 2003 ! status::. _Standard_: GNU extension _Class_: ! Non-elemental subroutine _Syntax_: `CALL FPUT(C [, STATUS])' --- 4888,4907 ---- normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic is provided in both subroutine and function forms; ! however, only one form can be used in any given program unit. ! ! Note that the `FGET' intrinsic is provided for backwards ! compatibility with `g77'. GNU Fortran provides the Fortran 2003 ! Stream facility. Programmers should consider the use of new ! stream IO feature in new code for future portability. See also ! *Note Fortran 2003 status::. _Standard_: GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL FPUT(C [, STATUS])' *************** _Description_: *** 4935,4951 **** record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic routine is provided for backwards compatibility with ! `g77'. GNU Fortran provides the Fortran 2003 Stream facility. ! Programmers should consider the use of new stream IO feature in ! new code for future portability. See also *Note Fortran 2003 ! status::. _Standard_: GNU extension _Class_: ! Non-elemental subroutine _Syntax_: `CALL FPUTC(UNIT, C [, STATUS])' --- 4937,4956 ---- record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic is provided in both subroutine and function forms; ! however, only one form can be used in any given program unit. ! ! Note that the `FGET' intrinsic is provided for backwards ! compatibility with `g77'. GNU Fortran provides the Fortran 2003 ! Stream facility. Programmers should consider the use of new ! stream IO feature in new code for future portability. See also ! *Note Fortran 2003 status::. _Standard_: GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL FPUTC(UNIT, C [, STATUS])' *************** _Description_: *** 5087,5097 **** The elements in `BUFF' are the same as described by *Note STAT::. _Standard_: GNU extension _Class_: ! Non-elemental subroutine _Syntax_: `CALL FSTAT(UNIT, BUFF [, STATUS])' --- 5092,5105 ---- The elements in `BUFF' are the same as described by *Note STAT::. + This intrinsic is provided in both subroutine and function forms; + however, only one form can be used in any given program unit. + _Standard_: GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL FSTAT(UNIT, BUFF [, STATUS])' *************** File: gfortran.info, Node: GETCWD, Nex *** 5329,5339 **** _Description_: Get current working directory. _Standard_: GNU extension _Class_: ! Non-elemental subroutine. _Syntax_: `CALL GETCWD(CWD [, STATUS])' --- 5337,5350 ---- _Description_: Get current working directory. + This intrinsic is provided in both subroutine and function forms; + however, only one form can be used in any given program unit. + _Standard_: GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL GETCWD(CWD [, STATUS])' *************** _Standard_: *** 5443,5449 **** GNU extension _Class_: ! function _Syntax_: `RESULT = GETGID()' --- 5454,5460 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = GETGID()' *************** _Standard_: *** 5506,5512 **** GNU extension _Class_: ! function _Syntax_: `RESULT = GETPID()' --- 5517,5523 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = GETPID()' *************** _Standard_: *** 5537,5543 **** GNU extension _Class_: ! function _Syntax_: `RESULT = GETUID()' --- 5548,5554 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = GETUID()' *************** _Standard_: *** 5655,5661 **** F95 and later _Class_: ! Elemental function _Syntax_: `RESULT = HUGE(X)' --- 5666,5672 ---- F95 and later _Class_: ! Inquiry function _Syntax_: `RESULT = HUGE(X)' *************** _Standard_: *** 5773,5779 **** GNU extension _Class_: ! Non-elemental Function _Syntax_: `RESULT = IARGC()' --- 5784,5790 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = IARGC()' *************** _Standard_: *** 6031,6037 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = IERRNO()' --- 6042,6048 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = IERRNO()' *************** _Description_: *** 6248,6258 **** restarted by `CALL SRAND(0)'; if FLAG has any other value, it is used as a new seed with `SRAND'. _Standard_: GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = IRAND(FLAG)' --- 6259,6274 ---- restarted by `CALL SRAND(0)'; if FLAG has any other value, it is used as a new seed with `SRAND'. + This intrinsic routine is provided for backwards compatibility with + GNU Fortran 77. It implements a simple modulo generator as provided + by `g77'. For new code, one should consider the use of *Note + RANDOM_NUMBER:: as it implements a superior algorithm. + _Standard_: GNU extension _Class_: ! Function _Syntax_: `RESULT = IRAND(FLAG)' *************** _Standard_: *** 6286,6292 **** GNU extension. _Class_: ! Non-elemental function. _Syntax_: `RESULT = ISATTY(UNIT)' --- 6302,6308 ---- GNU extension. _Class_: ! Function _Syntax_: `RESULT = ISATTY(UNIT)' *************** _Standard_: *** 6430,6437 **** Sends the signal specified by SIGNAL to the process PID. See `kill(2)'. _Class_: ! Subroutine _Syntax_: `CALL KILL(PID, SIGNAL [, STATUS])' --- 6446,6456 ---- Sends the signal specified by SIGNAL to the process PID. See `kill(2)'. + This intrinsic is provided in both subroutine and function forms; + however, only one form can be used in any given program unit. + _Class_: ! Subroutine, function _Syntax_: `CALL KILL(PID, SIGNAL [, STATUS])' *************** _Standard_: *** 6675,6681 **** GNU extension _Class_: ! Subroutine, non-elemental function _Syntax_: `CALL LINK(PATH1, PATH2 [, STATUS])' --- 6694,6700 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL LINK(PATH1, PATH2 [, STATUS])' *************** _Description_: *** 7023,7033 **** The elements in `BUFF' are the same as described by *Note STAT::. _Standard_: GNU extension _Class_: ! Non-elemental subroutine _Syntax_: `CALL LSTAT(FILE, BUFF [, STATUS])' --- 7042,7055 ---- The elements in `BUFF' are the same as described by *Note STAT::. + This intrinsic is provided in both subroutine and function forms; + however, only one form can be used in any given program unit. + _Standard_: GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL LSTAT(FILE, BUFF [, STATUS])' *************** _Standard_: *** 7118,7124 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `PTR = MALLOC(SIZE)' --- 7140,7146 ---- GNU extension _Class_: ! Function _Syntax_: `PTR = MALLOC(SIZE)' *************** _Standard_: *** 7397,7403 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = MCLOCK()' --- 7419,7425 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = MCLOCK()' *************** _Standard_: *** 7435,7441 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = MCLOCK8()' --- 7457,7463 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = MCLOCK8()' *************** _Standard_: *** 7808,7817 **** F95 and later _Class_: ! Elemental function _Syntax_: ! `RESULT = MVBITS(FROM, FROMPOS, LEN, TO, TOPOS)' _Arguments_: FROM The type shall be `INTEGER(*)'. --- 7830,7839 ---- F95 and later _Class_: ! Elemental subroutine _Syntax_: ! `CALL MVBITS(FROM, FROMPOS, LEN, TO, TOPOS)' _Arguments_: FROM The type shall be `INTEGER(*)'. *************** _Standard_: *** 8027,8033 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = OR(X, Y)' --- 8049,8055 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = OR(X, Y)' *************** _Standard_: *** 8309,8315 **** GNU extension _Class_: ! Non-elemental function _See also_: *Note RAND::, *Note RANDOM_NUMBER:: --- 8331,8337 ---- GNU extension _Class_: ! Function _See also_: *Note RAND::, *Note RANDOM_NUMBER:: *************** _Description_: *** 8327,8337 **** restarted by `CALL SRAND(0)'; if FLAG has any other value, it is used as a new seed with `SRAND'. _Standard_: GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = RAND(FLAG)' --- 8349,8364 ---- restarted by `CALL SRAND(0)'; if FLAG has any other value, it is used as a new seed with `SRAND'. + This intrinsic routine is provided for backwards compatibility with + GNU Fortran 77. It implements a simple modulo generator as provided + by `g77'. For new code, one should consider the use of *Note + RANDOM_NUMBER:: as it implements a superior algorithm. + _Standard_: GNU extension _Class_: ! Function _Syntax_: `RESULT = RAND(FLAG)' *************** _Description_: *** 8365,8375 **** Returns a single pseudorandom number or an array of pseudorandom numbers from the uniform distribution over the range 0 \leq x < 1. _Standard_: F95 and later _Class_: ! Elemental subroutine _Syntax_: `RANDOM_NUMBER(HARVEST)' --- 8392,8421 ---- Returns a single pseudorandom number or an array of pseudorandom numbers from the uniform distribution over the range 0 \leq x < 1. + The runtime-library implementes George Marsaglia's KISS (Keep It + Simple Stupid) random number generator (RNG). This RNG combines: + 1. The congruential generator x(n) = 69069 \cdot x(n-1) + + 1327217885 with a period of 2^32, + + 2. A 3-shift shift-register generator with a period of 2^32 - 1, + + 3. Two 16-bit multiply-with-carry generators with a period of + 597273182964842497 > 2^59. + The overall period exceeds 2^123. + + Please note, this RNG is thread safe if used within OpenMP + directives, i. e. its state will be consistent while called from + multiple threads. However, the KISS generator does not create + random numbers in parallel from multiple sources, but in sequence + from a single source. If an OpenMP-enabled application heavily + relies on random numbers, one should consider employing a + dedicated parallel random number generator instead. + _Standard_: F95 and later _Class_: ! Subroutine _Syntax_: `RANDOM_NUMBER(HARVEST)' *************** _Example_: *** 8385,8400 **** CALL RANDOM_NUMBER(r) end program - _Note_: - The implemented random number generator is thread safe if used - within OpenMP directives, i. e. its state will be consistent while - called from multiple threads. Please note that the currently - implemented KISS generator does not create random numbers in - parallel from multiple sources, but in sequence from a single - source. If your OpenMP-enabled application heavily relies on - random numbers, you should consider employing a dedicated parallel - random number generator instead. - _See also_: *Note RANDOM_SEED:: --- 8431,8436 ---- *************** _Standard_: *** 8559,8565 **** GNU extension _Class_: ! Subroutine, non-elemental function _Syntax_: `CALL RENAME(PATH1, PATH2 [, STATUS])' --- 8595,8601 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL RENAME(PATH1, PATH2 [, STATUS])' *************** _Standard_: *** 8809,8815 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = SECNDS (X)' --- 8845,8851 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = SECNDS (X)' *************** _Standard_: *** 8852,8858 **** GNU extension _Class_: ! Subroutine, non-elemental function _Syntax_: `CALL SECOND(TIME)' --- 8888,8894 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL SECOND(TIME)' *************** _Standard_: *** 9100,9106 **** GNU extension _Class_: ! Subroutine, non-elemental function _Syntax_: `CALL SIGNAL(NUMBER, HANDLER [, STATUS])' --- 9136,9142 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL SIGNAL(NUMBER, HANDLER [, STATUS])' *************** _Standard_: *** 9439,9445 **** GNU extension _Class_: ! Non-elemental subroutine _Syntax_: `CALL SRAND(SEED)' --- 9475,9481 ---- GNU extension _Class_: ! Subroutine _Syntax_: `CALL SRAND(SEED)' *************** _Description_: *** 9496,9506 **** Not all these elements are relevant on all systems. If an element is not relevant, it is returned as 0. _Standard_: GNU extension _Class_: ! Non-elemental subroutine _Syntax_: `CALL STAT(FILE,BUFF[,STATUS])' --- 9532,9545 ---- Not all these elements are relevant on all systems. If an element is not relevant, it is returned as 0. + This intrinsic is provided in both subroutine and function forms; + however, only one form can be used in any given program unit. + _Standard_: GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL STAT(FILE,BUFF[,STATUS])' *************** _Standard_: *** 9608,9614 **** GNU extension _Class_: ! Subroutine, non-elemental function _Syntax_: `CALL SYMLNK(PATH1, PATH2 [, STATUS])' --- 9647,9653 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL SYMLNK(PATH1, PATH2 [, STATUS])' *************** _Standard_: *** 9643,9649 **** GNU extension _Class_: ! Subroutine, non-elemental function _Syntax_: `CALL SYSTEM(COMMAND [, STATUS])' --- 9682,9688 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL SYSTEM(COMMAND [, STATUS])' *************** _Standard_: *** 9800,9806 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = TIME()' --- 9839,9845 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = TIME()' *************** _Standard_: *** 9836,9842 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = TIME8()' --- 9875,9881 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = TIME8()' *************** _Standard_: *** 9863,9869 **** F95 and later _Class_: ! Elemental function _Syntax_: `RESULT = TINY(X)' --- 9902,9908 ---- F95 and later _Class_: ! Inquiry function _Syntax_: `RESULT = TINY(X)' *************** _Standard_: *** 10009,10015 **** GNU extension _Class_: ! Subroutine, non-elemental function _Syntax_: `CALL TTYNAM(UNIT, NAME)' --- 10048,10054 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL TTYNAM(UNIT, NAME)' *************** _Standard_: *** 10110,10116 **** GNU extension _Class_: ! Subroutine, non-elemental function _Syntax_: `CALL UNLINK(PATH [, STATUS])' --- 10149,10155 ---- GNU extension _Class_: ! Subroutine, function _Syntax_: `CALL UNLINK(PATH [, STATUS])' *************** _Standard_: *** 10228,10234 **** GNU extension _Class_: ! Non-elemental function _Syntax_: `RESULT = XOR(X, Y)' --- 10267,10273 ---- GNU extension _Class_: ! Function _Syntax_: `RESULT = XOR(X, Y)' *************** look up both forms. *** 11380,11411 **** (line 55) * std=STD option: Fortran Dialect Options. (line 102) - * W: Error and Warning Options. - (line 135) - * w: Error and Warning Options. - (line 59) * Waliasing: Error and Warning Options. ! (line 68) * Wall: Error and Warning Options. ! (line 62) * Wampersand: Error and Warning Options. ! (line 85) * Wcharacter-truncation: Error and Warning Options. ! (line 93) * Wconversion: Error and Warning Options. ! (line 96) * Werror: Error and Warning Options. ! (line 132) * Wimplicit-interface: Error and Warning Options. ! (line 99) * Wnonstd-intrinsics: Error and Warning Options. ! (line 105) * Wsurprising: Error and Warning Options. ! (line 109) * Wtabs: Error and Warning Options. ! (line 122) * Wunderflow: Error and Warning Options. ! (line 128)  File: gfortran.info, Node: Keyword Index, Prev: Option Index, Up: Top --- 11419,11446 ---- (line 55) * std=STD option: Fortran Dialect Options. (line 102) * Waliasing: Error and Warning Options. ! (line 65) * Wall: Error and Warning Options. ! (line 59) * Wampersand: Error and Warning Options. ! (line 82) * Wcharacter-truncation: Error and Warning Options. ! (line 90) * Wconversion: Error and Warning Options. ! (line 93) * Werror: Error and Warning Options. ! (line 129) * Wimplicit-interface: Error and Warning Options. ! (line 96) * Wnonstd-intrinsics: Error and Warning Options. ! (line 102) * Wsurprising: Error and Warning Options. ! (line 106) * Wtabs: Error and Warning Options. ! (line 119) * Wunderflow: Error and Warning Options. ! (line 125)  File: gfortran.info, Node: Keyword Index, Prev: Option Index, Up: Top *************** Keyword Index *** 11419,11425 **** * $: Fortran Dialect Options. (line 44) * &: Error and Warning Options. ! (line 85) * [...]: Fortran 2003 status. (line 13) * ABORT: ABORT. (line 6) * ABS: ABS. (line 6) --- 11454,11460 ---- * $: Fortran Dialect Options. (line 44) * &: Error and Warning Options. ! (line 82) * [...]: Fortran 2003 status. (line 13) * ABORT: ABORT. (line 6) * ABS: ABS. (line 6) *************** Keyword Index *** 11437,11446 **** * AINT: AINT. (line 6) * ALARM: ALARM. (line 6) * aliasing: Error and Warning Options. ! (line 68) * ALL: ALL. (line 6) * all warnings: Error and Warning Options. ! (line 62) * ALLOCATABLE components of derived types: Fortran 2003 status. (line 30) * ALLOCATABLE dummy arguments: Fortran 2003 status. (line 26) --- 11472,11481 ---- * AINT: AINT. (line 6) * ALARM: ALARM. (line 6) * aliasing: Error and Warning Options. ! (line 65) * ALL: ALL. (line 6) * all warnings: Error and Warning Options. ! (line 59) * ALLOCATABLE components of derived types: Fortran 2003 status. (line 30) * ALLOCATABLE dummy arguments: Fortran 2003 status. (line 26) *************** Keyword Index *** 11615,11621 **** * Contributing: Contributing. (line 6) * Contributors: Contributors. (line 6) * conversion: Error and Warning Options. ! (line 96) * conversion, to character: CHAR. (line 6) * conversion, to complex <1>: DCMPLX. (line 6) * conversion, to complex <2>: COMPLEX. (line 6) --- 11650,11656 ---- * Contributing: Contributing. (line 6) * Contributors: Contributors. (line 6) * conversion: Error and Warning Options. ! (line 93) * conversion, to character: CHAR. (line 6) * conversion, to complex <1>: DCMPLX. (line 6) * conversion, to complex <2>: COMPLEX. (line 6) *************** Keyword Index *** 11746,11753 **** * exponential function, inverse <1>: LOG10. (line 6) * exponential function, inverse: LOG. (line 6) * Extension: Extensions. (line 6) - * extra warnings: Error and Warning Options. - (line 135) * f2c calling convention: Code Gen Options. (line 21) * FDATE: FDATE. (line 6) * FDL, GNU Free Documentation License: GNU Free Documentation License. --- 11781,11786 ---- *************** Keyword Index *** 12140,12146 **** * system, working directory: CHDIR. (line 6) * SYSTEM_CLOCK: SYSTEM_CLOCK. (line 6) * tabulators: Error and Warning Options. ! (line 122) * TAN: TAN. (line 6) * tangent: TAN. (line 6) * tangent, hyperbolic: TANH. (line 6) --- 12173,12179 ---- * system, working directory: CHDIR. (line 6) * SYSTEM_CLOCK: SYSTEM_CLOCK. (line 6) * tabulators: Error and Warning Options. ! (line 119) * TAN: TAN. (line 6) * tangent: TAN. (line 6) * tangent, hyperbolic: TANH. (line 6) *************** Keyword Index *** 12187,12193 **** * UBOUND: UBOUND. (line 6) * UMASK: UMASK. (line 6) * underflow: Error and Warning Options. ! (line 128) * underscore: Code Gen Options. (line 50) * UNLINK: UNLINK. (line 6) * UNPACK: UNPACK. (line 6) --- 12220,12226 ---- * UBOUND: UBOUND. (line 6) * UMASK: UMASK. (line 6) * underflow: Error and Warning Options. ! (line 125) * underscore: Code Gen Options. (line 50) * UNLINK: UNLINK. (line 6) * UNPACK: UNPACK. (line 6) *************** Keyword Index *** 12195,12227 **** * vector product: DOT_PRODUCT. (line 6) * VERIFY: VERIFY. (line 6) * warnings, aliasing: Error and Warning Options. ! (line 68) * warnings, all: Error and Warning Options. ! (line 62) * warnings, ampersand: Error and Warning Options. ! (line 85) * warnings, character truncation: Error and Warning Options. ! (line 93) * warnings, conversion: Error and Warning Options. ! (line 96) ! * warnings, extra: Error and Warning Options. ! (line 135) * warnings, implicit interface: Error and Warning Options. ! (line 99) * warnings, non-stdandard intrinsics: Error and Warning Options. ! (line 105) ! * warnings, none: Error and Warning Options. ! (line 59) * warnings, suppressing: Error and Warning Options. (line 6) * warnings, suspicious code: Error and Warning Options. ! (line 109) * warnings, tabs: Error and Warning Options. ! (line 122) * warnings, to errors: Error and Warning Options. ! (line 132) * warnings, underflow: Error and Warning Options. ! (line 128) * write character, stream mode <1>: FPUTC. (line 6) * write character, stream mode: FPUT. (line 6) * XOR: XOR. (line 6) --- 12228,12256 ---- * vector product: DOT_PRODUCT. (line 6) * VERIFY: VERIFY. (line 6) * warnings, aliasing: Error and Warning Options. ! (line 65) * warnings, all: Error and Warning Options. ! (line 59) * warnings, ampersand: Error and Warning Options. ! (line 82) * warnings, character truncation: Error and Warning Options. ! (line 90) * warnings, conversion: Error and Warning Options. ! (line 93) * warnings, implicit interface: Error and Warning Options. ! (line 96) * warnings, non-stdandard intrinsics: Error and Warning Options. ! (line 102) * warnings, suppressing: Error and Warning Options. (line 6) * warnings, suspicious code: Error and Warning Options. ! (line 106) * warnings, tabs: Error and Warning Options. ! (line 119) * warnings, to errors: Error and Warning Options. ! (line 129) * warnings, underflow: Error and Warning Options. ! (line 125) * write character, stream mode <1>: FPUTC. (line 6) * write character, stream mode: FPUT. (line 6) * XOR: XOR. (line 6) *************** Node: GNU Fortran and G779631 *** 12243,12503 **** Node: Project Status10182 Node: Standards12680 Node: Invoking GNU Fortran13337 ! Node: Option Summary14931 ! Node: Fortran Dialect Options17346 ! Node: Error and Warning Options22397 ! Node: Debugging Options28197 ! Node: Directory Options29533 ! Node: Runtime Options30880 ! Node: Code Gen Options32335 ! Node: Environment Variables40152 ! Node: Runtime40755 ! Node: GFORTRAN_STDIN_UNIT41764 ! Node: GFORTRAN_STDOUT_UNIT42131 ! Node: GFORTRAN_STDERR_UNIT42532 ! Node: GFORTRAN_USE_STDERR42930 ! Node: GFORTRAN_TMPDIR43375 ! Node: GFORTRAN_UNBUFFERED_ALL43816 ! Node: GFORTRAN_SHOW_LOCUS44294 ! Node: GFORTRAN_OPTIONAL_PLUS44779 ! Node: GFORTRAN_DEFAULT_RECL45254 ! Node: GFORTRAN_LIST_SEPARATOR45743 ! Node: GFORTRAN_CONVERT_UNIT46352 ! Node: Fortran 2003 status49195 ! Node: Extensions50285 ! Node: Old-style kind specifications51492 ! Node: Old-style variable initialization52326 ! Node: Extensions to namelist53607 ! Node: X format descriptor without count field55572 ! Node: Commas in FORMAT specifications56068 ! Node: Missing period in FORMAT specifications56554 ! Node: I/O item lists57085 ! Node: BOZ literal constants57443 ! Node: Real array indices58953 ! Node: Unary operators59219 ! Node: Implicitly convert LOGICAL and INTEGER values59602 ! Node: Hollerith constants support60358 ! Node: Cray pointers62099 ! Node: CONVERT specifier67478 ! Node: OpenMP69445 ! Node: Intrinsic Procedures70095 ! Node: Introduction to Intrinsics82695 ! Node: ABORT85008 ! Node: ABS85725 ! Node: ACCESS87217 ! Node: ACHAR89106 ! Node: ACOS90046 ! Node: ACOSH90976 ! Node: ADJUSTL91949 ! Node: ADJUSTR92843 ! Node: AIMAG93743 ! Node: AINT95153 ! Node: ALARM96598 ! Node: ALL98232 ! Node: ALLOCATED100149 ! Node: AND101018 ! Node: ANINT102194 ! Node: ANY103532 ! Node: ASIN105461 ! Node: ASINH106406 ! Node: ASSOCIATED107359 ! Node: ATAN110184 ! Node: ATAN2111018 ! Node: ATANH112297 ! Node: BESJ0113279 ! Node: BESJ1114193 ! Node: BESJN115113 ! Node: BESY0116138 ! Node: BESY1116996 ! Node: BESYN117854 ! Node: BIT_SIZE118933 ! Node: BTEST119682 ! Node: CEILING120525 ! Node: CHAR121486 ! Node: CHDIR122573 ! Node: CHMOD123808 ! Node: CMPLX125601 ! Node: COMMAND_ARGUMENT_COUNT127140 ! Node: COMPLEX128030 ! Node: CONJG129185 ! Node: COS130194 ! Node: COSH131407 ! Node: COUNT132225 ! Node: CPU_TIME133759 ! Node: CSHIFT134683 ! Node: CTIME136326 ! Node: DATE_AND_TIME137539 ! Node: DBLE139902 ! Node: DCMPLX140742 ! Node: DFLOAT141981 ! Node: DIGITS142678 ! Node: DIM143622 ! Node: DOT_PRODUCT144758 ! Node: DPROD146188 ! Node: DREAL146907 ! Node: DTIME147571 ! Node: EOSHIFT149865 ! Node: EPSILON151926 ! Node: ERF152622 ! Node: ERFC153419 ! Node: ETIME154234 ! Node: EXIT156412 ! Node: EXP157271 ! Node: EXPONENT158368 ! Node: FDATE159114 ! Node: FLOAT160288 ! Node: FGET160998 ! Node: FGETC162647 ! Node: FLOOR164251 ! Node: FLUSH165193 ! Node: FNUM165845 ! Node: FPUT166581 ! Node: FPUTC168018 ! Node: FRACTION169594 ! Node: FREE170488 ! Node: FSEEK171325 ! Node: FSTAT171818 ! Node: FTELL172747 ! Node: GERROR173726 ! Node: GETARG174434 ! Node: GET_COMMAND176031 ! Node: GET_COMMAND_ARGUMENT176911 ! Node: GETCWD178307 ! Node: GETENV179111 ! Node: GET_ENVIRONMENT_VARIABLE180275 ! Node: GETGID181209 ! Node: GETLOG181744 ! Node: GETPID182500 ! Node: GETUID183228 ! Node: GMTIME183742 ! Node: HOSTNM185297 ! Node: HUGE186235 ! Node: IACHAR186950 ! Node: IAND187876 ! Node: IARGC188864 ! Node: IBCLR189892 ! Node: IBITS190553 ! Node: IBSET191471 ! Node: ICHAR192127 ! Node: IDATE193856 ! Node: IEOR194872 ! Node: IERRNO195751 ! Node: INDEX196310 ! Node: INT197404 ! Node: INT2198918 ! Node: INT8199698 ! Node: IOR200425 ! Node: IRAND201270 ! Node: ISATTY202359 ! Node: ISHFT203153 ! Node: ISHFTC204135 ! Node: ITIME205356 ! Node: KILL206373 ! Node: KIND207139 ! Node: LBOUND207977 ! Node: LEN208957 ! Node: LEN_TRIM209779 ! Node: LGE210491 ! Node: LGT211796 ! Node: LINK213066 ! Node: LLE214115 ! Node: LLT215412 ! Node: LNBLNK216675 ! Node: LOC217444 ! Node: LOG218175 ! Node: LOG10219377 ! Node: LOGICAL220243 ! Node: LONG221070 ! Node: LSHIFT221841 ! Node: LSTAT222804 ! Node: LTIME223830 ! Node: MALLOC225309 ! Node: MATMUL226987 ! Node: MAX228176 ! Node: MAXEXPONENT229681 ! Node: MAXLOC230490 ! Node: MAXVAL232623 ! Node: MCLOCK234415 ! Node: MCLOCK8235432 ! Node: MERGE236660 ! Node: MIN237421 ! Node: MINEXPONENT238923 ! Node: MINLOC239546 ! Node: MINVAL241679 ! Node: MOD243445 ! Node: MODULO244822 ! Node: MOVE_ALLOC246029 ! Node: MVBITS247087 ! Node: NEAREST248271 ! Node: NEW_LINE249387 ! Node: NINT250172 ! Node: NOT251192 ! Node: NULL251774 ! Node: OR252658 ! Node: PACK253815 ! Node: PERROR255802 ! Node: PRECISION256392 ! Node: PRESENT257211 ! Node: PRODUCT258310 ! Node: RADIX259837 ! Node: RAN260607 ! Node: RAND261077 ! Node: RANDOM_NUMBER262153 ! Node: RANDOM_SEED263482 ! Node: RANGE265358 ! Node: REAL265978 ! Node: RENAME267479 ! Node: REPEAT268512 ! Node: RESHAPE269237 ! Node: RRSPACING270699 ! Node: RSHIFT271385 ! Node: SCALE272356 ! Node: SCAN273123 ! Node: SECNDS274418 ! Node: SECOND275520 ! Node: SELECTED_INT_KIND276409 ! Node: SELECTED_REAL_KIND277565 ! Node: SET_EXPONENT279504 ! Node: SHAPE280493 ! Node: SIGN281599 ! Node: SIGNAL282675 ! Node: SIN284186 ! Node: SINH285227 ! Node: SIZE285984 ! Node: SLEEP287040 ! Node: SNGL287595 ! Node: SPACING288259 ! Node: SPREAD289267 ! Node: SQRT290405 ! Node: SRAND291589 ! Node: STAT292762 ! Node: SUM295742 ! Node: SYMLNK297213 ! Node: SYSTEM298359 ! Node: SYSTEM_CLOCK299321 ! Node: TAN300658 ! Node: TANH301439 ! Node: TIME302251 ! Node: TIME8303369 ! Node: TINY304520 ! Node: TRANSFER305117 ! Node: TRANSPOSE307142 ! Node: TRIM307826 ! Node: TTYNAM308682 ! Node: UBOUND309617 ! Node: UMASK310656 ! Node: UNLINK311244 ! Node: UNPACK312235 ! Node: VERIFY313515 ! Node: XOR314976 ! Node: Contributing316162 ! Node: Contributors317017 ! Node: Projects318487 ! Node: Proposed Extensions319279 ! Node: Copying321477 ! Node: GNU Free Documentation License340686 ! Node: Funding363098 ! Node: Option Index365623 ! Node: Keyword Index372277  End Tag Table --- 12272,12532 ---- Node: Project Status10182 Node: Standards12680 Node: Invoking GNU Fortran13337 ! Node: Option Summary14944 ! Node: Fortran Dialect Options17364 ! Node: Error and Warning Options22415 ! Node: Debugging Options27997 ! Node: Directory Options29333 ! Node: Runtime Options30680 ! Node: Code Gen Options32139 ! Node: Environment Variables39956 ! Node: Runtime40559 ! Node: GFORTRAN_STDIN_UNIT41568 ! Node: GFORTRAN_STDOUT_UNIT41935 ! Node: GFORTRAN_STDERR_UNIT42336 ! Node: GFORTRAN_USE_STDERR42734 ! Node: GFORTRAN_TMPDIR43179 ! Node: GFORTRAN_UNBUFFERED_ALL43620 ! Node: GFORTRAN_SHOW_LOCUS44098 ! Node: GFORTRAN_OPTIONAL_PLUS44583 ! Node: GFORTRAN_DEFAULT_RECL45058 ! Node: GFORTRAN_LIST_SEPARATOR45547 ! Node: GFORTRAN_CONVERT_UNIT46156 ! Node: Fortran 2003 status48999 ! Node: Extensions50089 ! Node: Old-style kind specifications51296 ! Node: Old-style variable initialization52130 ! Node: Extensions to namelist53411 ! Node: X format descriptor without count field55376 ! Node: Commas in FORMAT specifications55872 ! Node: Missing period in FORMAT specifications56358 ! Node: I/O item lists56889 ! Node: BOZ literal constants57247 ! Node: Real array indices58757 ! Node: Unary operators59023 ! Node: Implicitly convert LOGICAL and INTEGER values59406 ! Node: Hollerith constants support60162 ! Node: Cray pointers61903 ! Node: CONVERT specifier67282 ! Node: OpenMP69249 ! Node: Intrinsic Procedures69899 ! Node: Introduction to Intrinsics82499 ! Node: ABORT84812 ! Node: ABS85515 ! Node: ACCESS87007 ! Node: ACHAR88896 ! Node: ACOS89836 ! Node: ACOSH90766 ! Node: ADJUSTL91739 ! Node: ADJUSTR92633 ! Node: AIMAG93533 ! Node: AINT94943 ! Node: ALARM96388 ! Node: ALL98022 ! Node: ALLOCATED99939 ! Node: AND100808 ! Node: ANINT101970 ! Node: ANY103308 ! Node: ASIN105237 ! Node: ASINH106182 ! Node: ASSOCIATED107135 ! Node: ATAN109960 ! Node: ATAN2110794 ! Node: ATANH112073 ! Node: BESJ0113055 ! Node: BESJ1113969 ! Node: BESJN114889 ! Node: BESY0115914 ! Node: BESY1116772 ! Node: BESYN117630 ! Node: BIT_SIZE118709 ! Node: BTEST119458 ! Node: CEILING120301 ! Node: CHAR121262 ! Node: CHDIR122349 ! Node: CHMOD123570 ! Node: CMPLX125335 ! Node: COMMAND_ARGUMENT_COUNT126874 ! Node: COMPLEX127764 ! Node: CONJG128919 ! Node: COS129928 ! Node: COSH131141 ! Node: COUNT131959 ! Node: CPU_TIME133493 ! Node: CSHIFT134417 ! Node: CTIME136060 ! Node: DATE_AND_TIME137283 ! Node: DBLE139646 ! Node: DCMPLX140486 ! Node: DFLOAT141725 ! Node: DIGITS142422 ! Node: DIM143366 ! Node: DOT_PRODUCT144502 ! Node: DPROD145932 ! Node: DREAL146651 ! Node: DTIME147315 ! Node: EOSHIFT149655 ! Node: EPSILON151716 ! Node: ERF152412 ! Node: ERFC153209 ! Node: ETIME154024 ! Node: EXIT156248 ! Node: EXP157107 ! Node: EXPONENT158204 ! Node: FDATE158950 ! Node: FLOAT160170 ! Node: FGET160880 ! Node: FGETC162673 ! Node: FLOOR164421 ! Node: FLUSH165363 ! Node: FNUM166001 ! Node: FPUT166723 ! Node: FPUTC168304 ! Node: FRACTION170024 ! Node: FREE170918 ! Node: FSEEK171755 ! Node: FSTAT172248 ! Node: FTELL173312 ! Node: GERROR174291 ! Node: GETARG174999 ! Node: GET_COMMAND176596 ! Node: GET_COMMAND_ARGUMENT177476 ! Node: GETCWD178872 ! Node: GETENV179810 ! Node: GET_ENVIRONMENT_VARIABLE180974 ! Node: GETGID181908 ! Node: GETLOG182443 ! Node: GETPID183199 ! Node: GETUID183927 ! Node: GMTIME184441 ! Node: HOSTNM185996 ! Node: HUGE186934 ! Node: IACHAR187647 ! Node: IAND188573 ! Node: IARGC189561 ! Node: IBCLR190575 ! Node: IBITS191236 ! Node: IBSET192154 ! Node: ICHAR192810 ! Node: IDATE194539 ! Node: IEOR195555 ! Node: IERRNO196434 ! Node: INDEX196979 ! Node: INT198073 ! Node: INT2199587 ! Node: INT8200367 ! Node: IOR201094 ! Node: IRAND201939 ! Node: ISATTY203287 ! Node: ISHFT204066 ! Node: ISHFTC205048 ! Node: ITIME206269 ! Node: KILL207286 ! Node: KIND208201 ! Node: LBOUND209039 ! Node: LEN210019 ! Node: LEN_TRIM210841 ! Node: LGE211553 ! Node: LGT212858 ! Node: LINK214128 ! Node: LLE215163 ! Node: LLT216460 ! Node: LNBLNK217723 ! Node: LOC218492 ! Node: LOG219223 ! Node: LOG10220425 ! Node: LOGICAL221291 ! Node: LONG222118 ! Node: LSHIFT222889 ! Node: LSTAT223852 ! Node: LTIME225013 ! Node: MALLOC226492 ! Node: MATMUL228156 ! Node: MAX229345 ! Node: MAXEXPONENT230850 ! Node: MAXLOC231659 ! Node: MAXVAL233792 ! Node: MCLOCK235584 ! Node: MCLOCK8236587 ! Node: MERGE237801 ! Node: MIN238562 ! Node: MINEXPONENT240064 ! Node: MINLOC240687 ! Node: MINVAL242820 ! Node: MOD244586 ! Node: MODULO245963 ! Node: MOVE_ALLOC247170 ! Node: MVBITS248228 ! Node: NEAREST249410 ! Node: NEW_LINE250526 ! Node: NINT251311 ! Node: NOT252331 ! Node: NULL252913 ! Node: OR253797 ! Node: PACK254940 ! Node: PERROR256927 ! Node: PRECISION257517 ! Node: PRESENT258336 ! Node: PRODUCT259435 ! Node: RADIX260962 ! Node: RAN261732 ! Node: RAND262188 ! Node: RANDOM_NUMBER263523 ! Node: RANDOM_SEED265254 ! Node: RANGE267130 ! Node: REAL267750 ! Node: RENAME269251 ! Node: REPEAT270270 ! Node: RESHAPE270995 ! Node: RRSPACING272457 ! Node: RSHIFT273143 ! Node: SCALE274114 ! Node: SCAN274881 ! Node: SECNDS276176 ! Node: SECOND277264 ! Node: SELECTED_INT_KIND278139 ! Node: SELECTED_REAL_KIND279295 ! Node: SET_EXPONENT281234 ! Node: SHAPE282223 ! Node: SIGN283329 ! Node: SIGNAL284405 ! Node: SIN285902 ! Node: SINH286943 ! Node: SIZE287700 ! Node: SLEEP288756 ! Node: SNGL289311 ! Node: SPACING289975 ! Node: SPREAD290983 ! Node: SQRT292121 ! Node: SRAND293305 ! Node: STAT294464 ! Node: SUM297579 ! Node: SYMLNK299050 ! Node: SYSTEM300182 ! Node: SYSTEM_CLOCK301130 ! Node: TAN302467 ! Node: TANH303248 ! Node: TIME304060 ! Node: TIME8305164 ! Node: TINY306301 ! Node: TRANSFER306896 ! Node: TRANSPOSE308921 ! Node: TRIM309605 ! Node: TTYNAM310461 ! Node: UBOUND311382 ! Node: UMASK312421 ! Node: UNLINK313009 ! Node: UNPACK313986 ! Node: VERIFY315266 ! Node: XOR316727 ! Node: Contributing317899 ! Node: Contributors318754 ! Node: Projects320224 ! Node: Proposed Extensions321016 ! Node: Copying323214 ! Node: GNU Free Documentation License342423 ! Node: Funding364835 ! Node: Option Index367360 ! Node: Keyword Index373732  End Tag Table diff -Nrcpad gcc-4.2.1/gcc/fortran/gfortranspec.c gcc-4.2.2/gcc/fortran/gfortranspec.c *** gcc-4.2.1/gcc/fortran/gfortranspec.c Mon Mar 5 21:31:26 2007 --- gcc-4.2.2/gcc/fortran/gfortranspec.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Specific flags and argument handling of the Fortran front-end. ! Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 ! Free Software Foundation, Inc. This file is part of GCC. GNU CC 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. GNU CC is distributed in the hope that it will be useful, --- 1,12 ---- /* Specific flags and argument handling of the Fortran front-end. ! Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, ! 2007 Free Software Foundation, Inc. This file is part of GCC. GNU CC 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 3, or (at your option) any later version. GNU CC is distributed in the hope that it will be useful, diff -Nrcpad gcc-4.2.1/gcc/fortran/interface.c gcc-4.2.2/gcc/fortran/interface.c *** gcc-4.2.1/gcc/fortran/interface.c Sun Feb 18 21:18:28 2007 --- gcc-4.2.2/gcc/fortran/interface.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Deal with interfaces. ! Copyright (C) 2000, 2001, 2002, 2004, 2005 Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Deal with interfaces. ! Copyright (C) 2000, 2001, 2002, 2004, 2005, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Deal with interfaces. An explicit interface is represented as a --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Deal with interfaces. An explicit interface is represented as a diff -Nrcpad gcc-4.2.1/gcc/fortran/intrinsic.c gcc-4.2.2/gcc/fortran/intrinsic.c *** gcc-4.2.1/gcc/fortran/intrinsic.c Thu Mar 8 21:43:28 2007 --- gcc-4.2.2/gcc/fortran/intrinsic.c Fri Aug 31 08:27:50 2007 *************** *** 1,6 **** /* Build up a list of intrinsic subroutines and functions for the name-resolution stage. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb --- 1,6 ---- /* Build up a list of intrinsic subroutines and functions for the name-resolution stage. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb *************** This file is part of GCC. *** 8,14 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 8,14 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 17,25 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 17,24 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/intrinsic.h gcc-4.2.2/gcc/fortran/intrinsic.h *** gcc-4.2.1/gcc/fortran/intrinsic.h Sun Oct 8 16:21:55 2006 --- gcc-4.2.2/gcc/fortran/intrinsic.h Fri Aug 31 08:27:50 2007 *************** *** 1,6 **** /* Header file for intrinsics check, resolve and simplify function prototypes. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb --- 1,6 ---- /* Header file for intrinsics check, resolve and simplify function prototypes. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb *************** This file is part of GCC. *** 8,14 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 8,14 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 17,25 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Expression returned when simplification fails. */ --- 17,24 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Expression returned when simplification fails. */ diff -Nrcpad gcc-4.2.1/gcc/fortran/intrinsic.texi gcc-4.2.2/gcc/fortran/intrinsic.texi *** gcc-4.2.1/gcc/fortran/intrinsic.texi Wed Jul 11 06:25:47 2007 --- gcc-4.2.2/gcc/fortran/intrinsic.texi Sun Jul 29 10:49:11 2007 *************** which is suitable for debugging purposes *** 308,314 **** GNU extension @item @emph{Class}: ! Non-elemental subroutine @item @emph{Syntax}: @code{CALL ABORT} --- 308,314 ---- GNU extension @item @emph{Class}: ! Subroutine @item @emph{Syntax}: @code{CALL ABORT} *************** in the array along dimension @var{DIM}. *** 870,876 **** F95 and later @item @emph{Class}: ! transformational function @item @emph{Syntax}: @code{RESULT = ALL(MASK [, DIM])} --- 870,876 ---- F95 and later @item @emph{Class}: ! Transformational function @item @emph{Syntax}: @code{RESULT = ALL(MASK [, DIM])} *************** the use of the @ref{IAND} intrinsic defi *** 980,986 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = AND(I, J)} --- 980,986 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = AND(I, J)} *************** end program test_anint *** 1084,1090 **** F95 and later @item @emph{Class}: ! transformational function @item @emph{Syntax}: @code{RESULT = ANY(MASK [, DIM])} --- 1084,1090 ---- F95 and later @item @emph{Class}: ! Transformational function @item @emph{Syntax}: @code{RESULT = ANY(MASK [, DIM])} *************** only one form can be used in any given p *** 1946,1952 **** GNU extension @item @emph{Class}: ! Subroutine, non-elemental function @item @emph{Syntax}: @multitable @columnfractions .80 --- 1946,1952 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** only one form can be used in any given p *** 1998,2004 **** GNU extension @item @emph{Class}: ! Subroutine, non-elemental function @item @emph{Syntax}: @multitable @columnfractions .80 --- 1998,2004 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** program chmod_test *** 2035,2041 **** print *, 'Status: ', status end program chmod_test @end smallexample ! @code{CHMOD} as non-elemental function: @smallexample program chmod_test implicit none --- 2035,2041 ---- print *, 'Status: ', status end program chmod_test @end smallexample ! @code{CHMOD} as function: @smallexample program chmod_test implicit none *************** range of @math{1 /leq DIM /leq n)} where *** 2377,2383 **** F95 and later @item @emph{Class}: ! transformational function @item @emph{Syntax}: @code{RESULT = COUNT(MASK [, DIM])} --- 2377,2383 ---- F95 and later @item @emph{Class}: ! Transformational function @item @emph{Syntax}: @code{RESULT = COUNT(MASK [, DIM])} *************** only one form can be used in any given p *** 2539,2545 **** GNU extension @item @emph{Class}: ! Subroutine @item @emph{Syntax}: @multitable @columnfractions .80 --- 2539,2545 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** vectors are @code{LOGICAL}, the result i *** 2897,2903 **** F95 and later @item @emph{Class}: ! transformational function @item @emph{Syntax}: @code{RESULT = DOT_PRODUCT(X, Y)} --- 2897,2903 ---- F95 and later @item @emph{Class}: ! Transformational function @item @emph{Syntax}: @code{RESULT = DOT_PRODUCT(X, Y)} *************** sufficiently small limits that overflows *** 3035,3042 **** become, negative, or numerically less than previous values, during a single run of the compiled program. ! If @code{DTIME} is invoked as a function, it can not be invoked as a ! subroutine, and vice versa. @var{TARRAY} and @var{RESULT} are @code{INTENT(OUT)} and provide the following: --- 3035,3042 ---- become, negative, or numerically less than previous values, during a single run of the compiled program. ! This intrinsic is provided in both subroutine and function forms; however, ! only one form can be used in any given program unit. @var{TARRAY} and @var{RESULT} are @code{INTENT(OUT)} and provide the following: *************** subroutine, and vice versa. *** 3050,3056 **** GNU extension @item @emph{Class}: ! Subroutine @item @emph{Syntax}: @multitable @columnfractions .80 --- 3050,3056 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** sufficiently small limits that overflows *** 3300,3307 **** become, negative, or numerically less than previous values, during a single run of the compiled program. ! If @code{ETIME} is invoked as a function, it can not be invoked as a ! subroutine, and vice versa. @var{TARRAY} and @var{RESULT} are @code{INTENT(OUT)} and provide the following: --- 3300,3307 ---- become, negative, or numerically less than previous values, during a single run of the compiled program. ! This intrinsic is provided in both subroutine and function forms; however, ! only one form can be used in any given program unit. @var{TARRAY} and @var{RESULT} are @code{INTENT(OUT)} and provide the following: *************** subroutine, and vice versa. *** 3315,3321 **** GNU extension @item @emph{Class}: ! Subroutine @item @emph{Syntax}: @multitable @columnfractions .80 --- 3315,3321 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** end program test_exponent *** 3511,3518 **** @code{CTIME}) in @var{DATE}. It is equivalent to @code{CALL CTIME(DATE, TIME())}. ! If @code{FDATE} is invoked as a function, it can not be invoked as a ! subroutine, and vice versa. @var{DATE} is an @code{INTENT(OUT)} @code{CHARACTER} variable. --- 3511,3518 ---- @code{CTIME}) in @var{DATE}. It is equivalent to @code{CALL CTIME(DATE, TIME())}. ! This intrinsic is provided in both subroutine and function forms; however, ! only one form can be used in any given program unit. @var{DATE} is an @code{INTENT(OUT)} @code{CHARACTER} variable. *************** subroutine, and vice versa. *** 3520,3526 **** GNU extension @item @emph{Class}: ! Subroutine @item @emph{Syntax}: @multitable @columnfractions .80 --- 3520,3526 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** Read a single character in stream mode f *** 3607,3613 **** formatted output. Stream I/O should not be mixed with normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic routine is provided for backwards compatibility with @command{g77}. GNU Fortran provides the Fortran 2003 Stream facility. Programmers should consider the use of new stream IO feature in new code for future portability. See also @ref{Fortran 2003 status}. --- 3607,3616 ---- formatted output. Stream I/O should not be mixed with normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic is provided in both subroutine and function forms; however, ! only one form can be used in any given program unit. ! ! Note that the @code{FGET} intrinsic is provided for backwards compatibility with @command{g77}. GNU Fortran provides the Fortran 2003 Stream facility. Programmers should consider the use of new stream IO feature in new code for future portability. See also @ref{Fortran 2003 status}. *************** for future portability. See also @ref{Fo *** 3616,3622 **** GNU extension @item @emph{Class}: ! Non-elemental subroutine @item @emph{Syntax}: @code{CALL FGET(C [, STATUS])} --- 3619,3625 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @code{CALL FGET(C [, STATUS])} *************** Read a single character in stream mode b *** 3665,3672 **** Stream I/O should not be mixed with normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic routine is provided for backwards compatibility with ! @command{g77}. GNU Fortran provides the Fortran 2003 Stream facility. Programmers should consider the use of new stream IO feature in new code for future portability. See also @ref{Fortran 2003 status}. --- 3668,3678 ---- Stream I/O should not be mixed with normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic is provided in both subroutine and function forms; however, ! only one form can be used in any given program unit. ! ! Note that the @code{FGET} intrinsic is provided for backwards compatibility ! with @command{g77}. GNU Fortran provides the Fortran 2003 Stream facility. Programmers should consider the use of new stream IO feature in new code for future portability. See also @ref{Fortran 2003 status}. *************** for future portability. See also @ref{Fo *** 3674,3680 **** GNU extension @item @emph{Class}: ! Non-elemental subroutine @item @emph{Syntax}: @code{CALL FGETC(UNIT, C [, STATUS])} --- 3680,3686 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @code{CALL FGETC(UNIT, C [, STATUS])} *************** argument, all units are flushed, otherwi *** 3770,3776 **** GNU extension @item @emph{Class}: ! Non-elemental subroutine @item @emph{Syntax}: @code{CALL FLUSH(UNIT)} --- 3776,3782 ---- GNU extension @item @emph{Class}: ! Subroutine @item @emph{Syntax}: @code{CALL FLUSH(UNIT)} *************** open Fortran I/O unit @code{UNIT}. *** 3802,3808 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = FNUM(UNIT)} --- 3808,3814 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = FNUM(UNIT)} *************** Write a single character in stream mode *** 3842,3848 **** formatted output. Stream I/O should not be mixed with normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic routine is provided for backwards compatibility with @command{g77}. GNU Fortran provides the Fortran 2003 Stream facility. Programmers should consider the use of new stream IO feature in new code for future portability. See also @ref{Fortran 2003 status}. --- 3848,3857 ---- formatted output. Stream I/O should not be mixed with normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic is provided in both subroutine and function forms; however, ! only one form can be used in any given program unit. ! ! Note that the @code{FGET} intrinsic is provided for backwards compatibility with @command{g77}. GNU Fortran provides the Fortran 2003 Stream facility. Programmers should consider the use of new stream IO feature in new code for future portability. See also @ref{Fortran 2003 status}. *************** for future portability. See also @ref{Fo *** 3851,3857 **** GNU extension @item @emph{Class}: ! Non-elemental subroutine @item @emph{Syntax}: @code{CALL FPUT(C [, STATUS])} --- 3860,3866 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @code{CALL FPUT(C [, STATUS])} *************** Write a single character in stream mode *** 3893,3899 **** output. Stream I/O should not be mixed with normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic routine is provided for backwards compatibility with @command{g77}. GNU Fortran provides the Fortran 2003 Stream facility. Programmers should consider the use of new stream IO feature in new code for future portability. See also @ref{Fortran 2003 status}. --- 3902,3911 ---- output. Stream I/O should not be mixed with normal record-oriented (formatted or unformatted) I/O on the same unit; the results are unpredictable. ! This intrinsic is provided in both subroutine and function forms; however, ! only one form can be used in any given program unit. ! ! Note that the @code{FGET} intrinsic is provided for backwards compatibility with @command{g77}. GNU Fortran provides the Fortran 2003 Stream facility. Programmers should consider the use of new stream IO feature in new code for future portability. See also @ref{Fortran 2003 status}. *************** for future portability. See also @ref{Fo *** 3902,3908 **** GNU extension @item @emph{Class}: ! Non-elemental subroutine @item @emph{Syntax}: @code{CALL FPUTC(UNIT, C [, STATUS])} --- 3914,3920 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @code{CALL FPUTC(UNIT, C [, STATUS])} *************** already opened file is obtained. *** 4059,4069 **** The elements in @code{BUFF} are the same as described by @ref{STAT}. @item @emph{Standard}: GNU extension @item @emph{Class}: ! Non-elemental subroutine @item @emph{Syntax}: @code{CALL FSTAT(UNIT, BUFF [, STATUS])} --- 4071,4084 ---- The elements in @code{BUFF} are the same as described by @ref{STAT}. + This intrinsic is provided in both subroutine and function forms; however, + only one form can be used in any given program unit. + @item @emph{Standard}: GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @code{CALL FSTAT(UNIT, BUFF [, STATUS])} *************** END PROGRAM *** 4344,4354 **** @item @emph{Description}: Get current working directory. @item @emph{Standard}: GNU extension @item @emph{Class}: ! Non-elemental subroutine. @item @emph{Syntax}: @code{CALL GETCWD(CWD [, STATUS])} --- 4359,4372 ---- @item @emph{Description}: Get current working directory. + This intrinsic is provided in both subroutine and function forms; however, + only one form can be used in any given program unit. + @item @emph{Standard}: GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @code{CALL GETCWD(CWD [, STATUS])} *************** Returns the numerical group ID of the cu *** 4478,4484 **** GNU extension @item @emph{Class}: ! function @item @emph{Syntax}: @code{RESULT = GETGID()} --- 4496,4502 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = GETGID()} *************** Returns the numerical process identifier *** 4555,4561 **** GNU extension @item @emph{Class}: ! function @item @emph{Syntax}: @code{RESULT = GETPID()} --- 4573,4579 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = GETPID()} *************** Returns the numerical user ID of the cur *** 4594,4600 **** GNU extension @item @emph{Class}: ! function @item @emph{Syntax}: @code{RESULT = GETUID()} --- 4612,4618 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = GETUID()} *************** the model of the type of @code{X}. *** 4722,4728 **** F95 and later @item @emph{Class}: ! Elemental function @item @emph{Syntax}: @code{RESULT = HUGE(X)} --- 4740,4746 ---- F95 and later @item @emph{Class}: ! Inquiry function @item @emph{Syntax}: @code{RESULT = HUGE(X)} *************** standard. *** 4864,4870 **** GNU extension @item @emph{Class}: ! Non-elemental Function @item @emph{Syntax}: @code{RESULT = IARGC()} --- 4882,4888 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = IARGC()} *************** function. *** 5166,5172 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = IERRNO()} --- 5184,5190 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = IERRNO()} *************** in the current sequence is returned; if *** 5418,5428 **** is restarted by @code{CALL SRAND(0)}; if @var{FLAG} has any other value, it is used as a new seed with @code{SRAND}. @item @emph{Standard}: GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = IRAND(FLAG)} --- 5436,5451 ---- is restarted by @code{CALL SRAND(0)}; if @var{FLAG} has any other value, it is used as a new seed with @code{SRAND}. + This intrinsic routine is provided for backwards compatibility with + GNU Fortran 77. It implements a simple modulo generator as provided + by @command{g77}. For new code, one should consider the use of + @ref{RANDOM_NUMBER} as it implements a superior algorithm. + @item @emph{Standard}: GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = IRAND(FLAG)} *************** Determine whether a unit is connected to *** 5463,5469 **** GNU extension. @item @emph{Class}: ! Non-elemental function. @item @emph{Syntax}: @code{RESULT = ISATTY(UNIT)} --- 5486,5492 ---- GNU extension. @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = ISATTY(UNIT)} *************** end program test_itime *** 5632,5639 **** Sends the signal specified by @var{SIGNAL} to the process @var{PID}. See @code{kill(2)}. @item @emph{Class}: ! Subroutine @item @emph{Syntax}: @code{CALL KILL(PID, SIGNAL [, STATUS])} --- 5655,5665 ---- Sends the signal specified by @var{SIGNAL} to the process @var{PID}. See @code{kill(2)}. + This intrinsic is provided in both subroutine and function forms; however, + only one form can be used in any given program unit. + @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @code{CALL KILL(PID, SIGNAL [, STATUS])} *************** however, only one form can be used in an *** 5919,5925 **** GNU extension @item @emph{Class}: ! Subroutine, non-elemental function @item @emph{Syntax}: @multitable @columnfractions .80 --- 5945,5951 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** then the link itself is statted, not the *** 6340,6350 **** The elements in @code{BUFF} are the same as described by @ref{STAT}. @item @emph{Standard}: GNU extension @item @emph{Class}: ! Non-elemental subroutine @item @emph{Syntax}: @code{CALL LSTAT(FILE, BUFF [, STATUS])} --- 6366,6379 ---- The elements in @code{BUFF} are the same as described by @ref{STAT}. + This intrinsic is provided in both subroutine and function forms; however, + only one form can be used in any given program unit. + @item @emph{Standard}: GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @code{CALL LSTAT(FILE, BUFF [, STATUS])} *************** using Fortran 95 pointers, the memory al *** 6437,6443 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{PTR = MALLOC(SIZE)} --- 6466,6472 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{PTR = MALLOC(SIZE)} *************** compiled program. *** 6760,6766 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = MCLOCK()} --- 6789,6795 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = MCLOCK()} *************** less than previous values during a singl *** 6800,6806 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = MCLOCK8()} --- 6829,6835 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = MCLOCK8()} *************** affected by the movement of bits is unch *** 7237,7246 **** F95 and later @item @emph{Class}: ! Elemental function @item @emph{Syntax}: ! @code{RESULT = MVBITS(FROM, FROMPOS, LEN, TO, TOPOS)} @item @emph{Arguments}: @multitable @columnfractions .15 .70 --- 7266,7275 ---- F95 and later @item @emph{Class}: ! Elemental subroutine @item @emph{Syntax}: ! @code{CALL MVBITS(FROM, FROMPOS, LEN, TO, TOPOS)} @item @emph{Arguments}: @multitable @columnfractions .15 .70 *************** the use of the @ref{IOR} intrinsic defin *** 7502,7508 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = OR(X, Y)} --- 7531,7537 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = OR(X, Y)} *************** documentation. *** 7832,7838 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{See also}: @ref{RAND}, @ref{RANDOM_NUMBER} --- 7861,7867 ---- GNU extension @item @emph{Class}: ! Function @item @emph{See also}: @ref{RAND}, @ref{RANDOM_NUMBER} *************** in the current sequence is returned; if *** 7853,7863 **** is restarted by @code{CALL SRAND(0)}; if @var{FLAG} has any other value, it is used as a new seed with @code{SRAND}. @item @emph{Standard}: GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = RAND(FLAG)} --- 7882,7897 ---- is restarted by @code{CALL SRAND(0)}; if @var{FLAG} has any other value, it is used as a new seed with @code{SRAND}. + This intrinsic routine is provided for backwards compatibility with + GNU Fortran 77. It implements a simple modulo generator as provided + by @command{g77}. For new code, one should consider the use of + @ref{RANDOM_NUMBER} as it implements a superior algorithm. + @item @emph{Standard}: GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = RAND(FLAG)} *************** end program test_rand *** 7898,7908 **** Returns a single pseudorandom number or an array of pseudorandom numbers from the uniform distribution over the range @math{ 0 \leq x < 1}. @item @emph{Standard}: F95 and later @item @emph{Class}: ! Elemental subroutine @item @emph{Syntax}: @code{RANDOM_NUMBER(HARVEST)} --- 7932,7960 ---- Returns a single pseudorandom number or an array of pseudorandom numbers from the uniform distribution over the range @math{ 0 \leq x < 1}. + The runtime-library implementes George Marsaglia's KISS (Keep It Simple + Stupid) random number generator (RNG). This RNG combines: + @enumerate + @item The congruential generator @math{x(n) = 69069 \cdot x(n-1) + 1327217885} + with a period of @math{2^{32}}, + @item A 3-shift shift-register generator with a period of @math{2^{32} - 1}, + @item Two 16-bit multiply-with-carry generators with a period of + @math{597273182964842497 > 2^{59}}. + @end enumerate + The overall period exceeds @math{2^{123}}. + + Please note, this RNG is thread safe if used within OpenMP directives, + i. e. its state will be consistent while called from multiple threads. + However, the KISS generator does not create random numbers in parallel + from multiple sources, but in sequence from a single source. If an + OpenMP-enabled application heavily relies on random numbers, one should + consider employing a dedicated parallel random number generator instead. + @item @emph{Standard}: F95 and later @item @emph{Class}: ! Subroutine @item @emph{Syntax}: @code{RANDOM_NUMBER(HARVEST)} *************** program test_random_number *** 7921,7935 **** end program @end smallexample - @item @emph{Note}: - The implemented random number generator is thread safe if used within - OpenMP directives, i. e. its state will be consistent while called from - multiple threads. Please note that the currently implemented KISS generator - does not create random numbers in parallel from multiple sources, but in - sequence from a single source. If your OpenMP-enabled application heavily - relies on random numbers, you should consider employing a dedicated parallel - random number generator instead. - @item @emph{See also}: @ref{RANDOM_SEED} @end table --- 7973,7978 ---- *************** however, only one form can be used in an *** 8120,8126 **** GNU extension @item @emph{Class}: ! Subroutine, non-elemental function @item @emph{Syntax}: @multitable @columnfractions .80 --- 8163,8169 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** use is discouraged. *** 8424,8430 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = SECNDS (X)} --- 8467,8473 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = SECNDS (X)} *************** however, only one form can be used in an *** 8475,8481 **** GNU extension @item @emph{Class}: ! Subroutine, non-elemental function @item @emph{Syntax}: @multitable @columnfractions .80 --- 8518,8524 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** is supplied, it is set to the value retu *** 8773,8779 **** GNU extension @item @emph{Class}: ! Subroutine, non-elemental function @item @emph{Syntax}: @multitable @columnfractions .80 --- 8816,8822 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** generator is specified by the required a *** 9193,9199 **** GNU extension @item @emph{Class}: ! Non-elemental subroutine @item @emph{Syntax}: @code{CALL SRAND(SEED)} --- 9236,9242 ---- GNU extension @item @emph{Class}: ! Subroutine @item @emph{Syntax}: @code{CALL SRAND(SEED)} *************** The elements that are obtained and store *** 9256,9267 **** Not all these elements are relevant on all systems. If an element is not relevant, it is returned as 0. @item @emph{Standard}: GNU extension @item @emph{Class}: ! Non-elemental subroutine @item @emph{Syntax}: @code{CALL STAT(FILE,BUFF[,STATUS])} --- 9299,9312 ---- Not all these elements are relevant on all systems. If an element is not relevant, it is returned as 0. + This intrinsic is provided in both subroutine and function forms; however, + only one form can be used in any given program unit. @item @emph{Standard}: GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @code{CALL STAT(FILE,BUFF[,STATUS])} *************** however, only one form can be used in an *** 9386,9392 **** GNU extension @item @emph{Class}: ! Subroutine, non-elemental function @item @emph{Syntax}: @multitable @columnfractions .80 --- 9431,9437 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** however, only one form can be used in an *** 9428,9434 **** GNU extension @item @emph{Class}: ! Subroutine, non-elemental function @item @emph{Syntax}: @multitable @columnfractions .80 --- 9473,9479 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** compilers. *** 9624,9630 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = TIME()} --- 9669,9675 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = TIME()} *************** less than previous values during a singl *** 9663,9669 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = TIME8()} --- 9708,9714 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = TIME8()} *************** in the model of the type of @code{X}. *** 9693,9699 **** F95 and later @item @emph{Class}: ! Elemental function @item @emph{Syntax}: @code{RESULT = TINY(X)} --- 9738,9744 ---- F95 and later @item @emph{Class}: ! Inquiry function @item @emph{Syntax}: @code{RESULT = TINY(X)} *************** however, only one form can be used in an *** 9866,9872 **** GNU extension @item @emph{Class}: ! Subroutine, non-elemental function @item @emph{Syntax}: @multitable @columnfractions .80 --- 9911,9917 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** however, only one form can be used in an *** 9985,9991 **** GNU extension @item @emph{Class}: ! Subroutine, non-elemental function @item @emph{Syntax}: @multitable @columnfractions .80 --- 10030,10036 ---- GNU extension @item @emph{Class}: ! Subroutine, function @item @emph{Syntax}: @multitable @columnfractions .80 *************** the use of the @ref{IEOR} intrinsic defi *** 10126,10132 **** GNU extension @item @emph{Class}: ! Non-elemental function @item @emph{Syntax}: @code{RESULT = XOR(X, Y)} --- 10171,10177 ---- GNU extension @item @emph{Class}: ! Function @item @emph{Syntax}: @code{RESULT = XOR(X, Y)} diff -Nrcpad gcc-4.2.1/gcc/fortran/invoke.texi gcc-4.2.2/gcc/fortran/invoke.texi *** gcc-4.2.1/gcc/fortran/invoke.texi Sun Apr 29 10:49:14 2007 --- gcc-4.2.2/gcc/fortran/invoke.texi Sun Jul 29 10:49:11 2007 *************** one is not the default. *** 100,110 **** * Runtime Options:: Influencing runtime behavior * Code Gen Options:: Specifying conventions for function calls, data layout and register usage. ! * Environment Variables:: Env vars that affect @command{gfortran}. @end menu @node Option Summary ! @section Option Summary @c man begin OPTIONS --- 100,110 ---- * Runtime Options:: Influencing runtime behavior * Code Gen Options:: Specifying conventions for function calls, data layout and register usage. ! * Environment Variables:: Environment variables that affect @command{gfortran}. @end menu @node Option Summary ! @section Option summary @c man begin OPTIONS *************** by type. Explanations are in the follow *** 113,119 **** @table @emph @item Fortran Language Options ! @xref{Fortran Dialect Options,,Options Controlling Fortran Dialect}. @gccoptlist{-fall-intrinsics -ffree-form -fno-fixed-form @gol -fdollar-ok -fimplicit-none -fmax-identifier-length @gol -std=@var{std} -fd-lines-as-code -fd-lines-as-comments @gol --- 113,119 ---- @table @emph @item Fortran Language Options ! @xref{Fortran Dialect Options,,Options controlling Fortran dialect}. @gccoptlist{-fall-intrinsics -ffree-form -fno-fixed-form @gol -fdollar-ok -fimplicit-none -fmax-identifier-length @gol -std=@var{std} -fd-lines-as-code -fd-lines-as-comments @gol *************** by type. Explanations are in the follow *** 123,142 **** -fcray-pointer -fopenmp -frange-check -fno-backslash } @item Error and Warning Options ! @xref{Error and Warning Options,,Options to Request or Suppress Errors ! and Warnings}. @gccoptlist{-fmax-errors=@var{n} @gol -fsyntax-only -pedantic -pedantic-errors @gol ! -w -Wall -Waliasing -Wampersand -Wcharacter-truncation -Wconversion @gol -Wimplicit-interface -Wline-truncation -Wnonstd-intrinsics -Wsurprising @gol ! -Wno-tabs -Wunderflow -W} @item Debugging Options ! @xref{Debugging Options,,Options for Debugging Your Program or GCC}. @gccoptlist{-fdump-parse-tree -ffpe-trap=@var{list}} @item Directory Options ! @xref{Directory Options,,Options for Directory Search}. @gccoptlist{-I@var{dir} -J@var{dir} -M@var{dir}} @item Runtime Options --- 123,142 ---- -fcray-pointer -fopenmp -frange-check -fno-backslash } @item Error and Warning Options ! @xref{Error and Warning Options,,Options to request or suppress errors ! and warnings}. @gccoptlist{-fmax-errors=@var{n} @gol -fsyntax-only -pedantic -pedantic-errors @gol ! -Wall -Waliasing -Wampersand -Wcharacter-truncation -Wconversion @gol -Wimplicit-interface -Wline-truncation -Wnonstd-intrinsics -Wsurprising @gol ! -Wno-tabs -Wunderflow} @item Debugging Options ! @xref{Debugging Options,,Options for debugging your program or GNU Fortran}. @gccoptlist{-fdump-parse-tree -ffpe-trap=@var{list}} @item Directory Options ! @xref{Directory Options,,Options for directory search}. @gccoptlist{-I@var{dir} -J@var{dir} -M@var{dir}} @item Runtime Options *************** and Warnings}. *** 145,151 **** -fmax-subrecord-length=@var{length}} @item Code Generation Options ! @xref{Code Gen Options,,Options for Code Generation Conventions}. @gccoptlist{-fno-automatic -ff2c -fno-underscoring -fsecond-underscore @gol -fbounds-check -fmax-stack-var-size=@var{n} @gol --- 145,151 ---- -fmax-subrecord-length=@var{length}} @item Code Generation Options ! @xref{Code Gen Options,,Options for code generation conventions}. @gccoptlist{-fno-automatic -ff2c -fno-underscoring -fsecond-underscore @gol -fbounds-check -fmax-stack-var-size=@var{n} @gol *************** and Warnings}. *** 164,170 **** @end menu @node Fortran Dialect Options ! @section Options Controlling Fortran Dialect @cindex dialect options @cindex language, dialect options @cindex options, dialect --- 164,170 ---- @end menu @node Fortran Dialect Options ! @section Options controlling Fortran dialect @cindex dialect options @cindex language, dialect options @cindex options, dialect *************** standards. *** 312,318 **** @end table @node Error and Warning Options ! @section Options to Request or Suppress Errors and Warnings @cindex options, warnings @cindex options, errors @cindex warnings, suppressing --- 312,318 ---- @end table @node Error and Warning Options ! @section Options to request or suppress errors and warnings @cindex options, warnings @cindex options, errors @cindex warnings, suppressing *************** This should be used in conjunction with *** 380,390 **** Like @option{-pedantic}, except that errors are produced rather than warnings. - @item -w - @opindex @code{w} - @cindex warnings, none - Inhibit all warning messages. - @item -Wall @opindex @code{Wall} @cindex all warnings --- 380,385 ---- *************** encountered, which yield an UNDERFLOW du *** 489,502 **** @opindex @code{Werror} @cindex warnings, to errors Turns all warnings into errors. - - @item -W - @opindex @code{W} - @cindex warnings, extra - @cindex extra warnings - Turns on ``extra warnings'' and, if optimization is specified - via @option{-O}, the @option{-Wuninitialized} option. - (This might change in future versions of GNU Fortran.) @end table @xref{Error and Warning Options,,Options to Request or Suppress Errors and --- 484,489 ---- *************** and other GNU compilers. *** 507,513 **** Some of these have no effect when compiling programs written in Fortran. @node Debugging Options ! @section Options for Debugging Your Program or GNU Fortran @cindex options, debugging @cindex debugging information options --- 494,500 ---- Some of these have no effect when compiling programs written in Fortran. @node Debugging Options ! @section Options for debugging your program or GNU Fortran @cindex options, debugging @cindex debugging information options *************** gcc,Using the GNU Compiler Collection (G *** 539,545 **** debugging options. @node Directory Options ! @section Options for Directory Search @cindex directory, options @cindex options, directory search @cindex search path --- 526,532 ---- debugging options. @node Directory Options ! @section Options for directory search @cindex directory, options @cindex options, directory search @cindex search path *************** variable override the default specified *** 614,623 **** @opindex @code{frecord-marker=}@var{length} Specify the length of record markers for unformatted files. Valid values for @var{length} are 4 and 8. Default is 4. ! @emph{This is different from previous versions of gfortran}, which specified a default record marker length of 8 on most systems. If you want to read or write files compatible ! with earlier versions of gfortran, use @option{-frecord-marker=8}. @item -fmax-subrecord-length=@var{length} @opindex @code{fmax-subrecord-length=}@var{length} --- 601,610 ---- @opindex @code{frecord-marker=}@var{length} Specify the length of record markers for unformatted files. Valid values for @var{length} are 4 and 8. Default is 4. ! @emph{This is different from previous versions of @command{gfortran}}, which specified a default record marker length of 8 on most systems. If you want to read or write files compatible ! with earlier versions of @command{gfortran}, use @option{-frecord-marker=8}. @item -fmax-subrecord-length=@var{length} @opindex @code{fmax-subrecord-length=}@var{length} *************** really useful for use by the gfortran te *** 627,633 **** @end table @node Code Gen Options ! @section Options for Code Generation Conventions @cindex code generation, conventions @cindex options, code generation @cindex options, run-time --- 614,620 ---- @end table @node Code Gen Options ! @section Options for code generation conventions @cindex code generation, conventions @cindex options, code generation @cindex options, run-time *************** shared by @command{gfortran}, @command{g *** 843,849 **** @c man end @node Environment Variables ! @section Environment Variables Affecting @command{gfortran} @cindex environment variable @c man begin ENVIRONMENT --- 830,836 ---- @c man end @node Environment Variables ! @section Environment variables affecting @command{gfortran} @cindex environment variable @c man begin ENVIRONMENT diff -Nrcpad gcc-4.2.1/gcc/fortran/io.c gcc-4.2.2/gcc/fortran/io.c *** gcc-4.2.1/gcc/fortran/io.c Sat Jan 27 05:24:07 2007 --- gcc-4.2.2/gcc/fortran/io.c Fri Aug 31 08:27:50 2007 *************** *** 1,13 **** /* Deal with I/O statements & related stuff. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software ! Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Deal with I/O statements & related stuff. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" #include "system.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" #include "system.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/iresolve.c gcc-4.2.2/gcc/fortran/iresolve.c *** gcc-4.2.1/gcc/fortran/iresolve.c Thu Mar 8 21:49:59 2007 --- gcc-4.2.2/gcc/fortran/iresolve.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Intrinsic function resolution. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb --- 1,5 ---- /* Intrinsic function resolution. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Assign name and types to intrinsic procedures. For functions, the --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Assign name and types to intrinsic procedures. For functions, the diff -Nrcpad gcc-4.2.1/gcc/fortran/lang-specs.h gcc-4.2.2/gcc/fortran/lang-specs.h *** gcc-4.2.1/gcc/fortran/lang-specs.h Tue Jan 30 08:08:33 2007 --- gcc-4.2.2/gcc/fortran/lang-specs.h Fri Aug 31 08:27:50 2007 *************** *** 1,8 **** /* Contribution to the specs for the GNU Compiler Collection from GNU Fortran 95 compiler. ! Copyright (C) 2002, 2003, 2004, 2006 Free Software Foundation, Inc. ! This file is licensed under the GPL. */ /* This is the contribution to the `default_compilers' array in gcc.c for the f95 language. */ --- 1,21 ---- /* Contribution to the specs for the GNU Compiler Collection from GNU Fortran 95 compiler. ! Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. ! This file 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 3 of the License, or ! (at your option) any later version. ! ! This file 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 GCC; see the file COPYING3. If not see ! . */ /* This is the contribution to the `default_compilers' array in gcc.c for the f95 language. */ diff -Nrcpad gcc-4.2.1/gcc/fortran/lang.opt gcc-4.2.2/gcc/fortran/lang.opt *** gcc-4.2.1/gcc/fortran/lang.opt Mon Mar 5 20:17:23 2007 --- gcc-4.2.2/gcc/fortran/lang.opt Fri Aug 31 08:27:50 2007 *************** *** 1,11 **** ; Options for the Fortran 95 front end. ! ; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. ; ; This file is part of GCC. ; ; GCC 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. ; ; GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,12 ---- ; Options for the Fortran 95 front end. ! ; Copyright (C) 2003, 2004, 2005, 2006, 2007 ! ; Free Software Foundation, Inc. ; ; This file is part of GCC. ; ; GCC 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 3, or (at your option) any later ; version. ; ; GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** *** 14,22 **** ; for more details. ; ; You should have received a copy of the GNU General Public License ! ; along with GCC; see the file COPYING. If not, write to the Free ! ; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! ; 02110-1301, USA. ; See the GCC internals manual for a description of this file's format. --- 15,22 ---- ; for more details. ; ; You should have received a copy of the GNU General Public License ! ; along with GCC; see the file COPYING3. If not see ! ; . ; See the GCC internals manual for a description of this file's format. diff -Nrcpad gcc-4.2.1/gcc/fortran/match.c gcc-4.2.2/gcc/fortran/match.c *** gcc-4.2.1/gcc/fortran/match.c Tue Mar 6 08:11:01 2007 --- gcc-4.2.2/gcc/fortran/match.c Fri Aug 31 08:27:50 2007 *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/match.h gcc-4.2.2/gcc/fortran/match.h *** gcc-4.2.1/gcc/fortran/match.h Sun Jan 14 14:49:50 2007 --- gcc-4.2.2/gcc/fortran/match.h Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* All matcher functions. ! Copyright (C) 2003, 2005 Free Software Foundation, Inc. Contributed by Steven Bosscher This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,12 ---- /* All matcher functions. ! Copyright (C) 2003, 2005, 2007 Free Software Foundation, Inc. Contributed by Steven Bosscher This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #ifndef GFC_MATCH_H --- 15,22 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #ifndef GFC_MATCH_H diff -Nrcpad gcc-4.2.1/gcc/fortran/matchexp.c gcc-4.2.2/gcc/fortran/matchexp.c *** gcc-4.2.1/gcc/fortran/matchexp.c Mon May 15 17:16:26 2006 --- gcc-4.2.2/gcc/fortran/matchexp.c Fri Aug 31 08:27:50 2007 *************** *** 1,13 **** /* Expression parser. ! Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006 Free Software Foundation, ! Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Expression parser. ! Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/misc.c gcc-4.2.2/gcc/fortran/misc.c *** gcc-4.2.1/gcc/fortran/misc.c Fri Feb 16 12:19:01 2007 --- gcc-4.2.2/gcc/fortran/misc.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Miscellaneous stuff that doesn't fit anywhere else. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Contributed by Andy Vaught --- 1,5 ---- /* Miscellaneous stuff that doesn't fit anywhere else. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/module.c gcc-4.2.2/gcc/fortran/module.c *** gcc-4.2.1/gcc/fortran/module.c Wed Mar 14 12:18:02 2007 --- gcc-4.2.2/gcc/fortran/module.c Fri Aug 31 08:27:50 2007 *************** *** 1,14 **** /* Handle modules, which amounts to loading and saving symbols and their attendant structures. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free ! Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,14 ---- /* Handle modules, which amounts to loading and saving symbols and their attendant structures. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 17,25 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* The syntax of gfortran modules resembles that of lisp lists, ie a sequence of atoms, which can be left or right parenthesis, names, --- 17,24 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* The syntax of gfortran modules resembles that of lisp lists, ie a sequence of atoms, which can be left or right parenthesis, names, diff -Nrcpad gcc-4.2.1/gcc/fortran/openmp.c gcc-4.2.2/gcc/fortran/openmp.c *** gcc-4.2.1/gcc/fortran/openmp.c Mon Oct 9 16:27:14 2006 --- gcc-4.2.2/gcc/fortran/openmp.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* OpenMP directive matching and resolving. ! Copyright (C) 2005, 2006 Free Software Foundation, Inc. Contributed by Jakub Jelinek This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,12 ---- /* OpenMP directive matching and resolving. ! Copyright (C) 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Jakub Jelinek This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 15,22 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/options.c gcc-4.2.2/gcc/fortran/options.c *** gcc-4.2.1/gcc/fortran/options.c Mon Mar 5 20:17:23 2007 --- gcc-4.2.2/gcc/fortran/options.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Parse and display command line options. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught --- 1,5 ---- /* Parse and display command line options. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/parse.c gcc-4.2.2/gcc/fortran/parse.c *** gcc-4.2.1/gcc/fortran/parse.c Wed Feb 21 08:40:29 2007 --- gcc-4.2.2/gcc/fortran/parse.c Fri Aug 31 08:27:50 2007 *************** *** 1,13 **** /* Main parser. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, ! Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Main parser. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/parse.h gcc-4.2.2/gcc/fortran/parse.h *** gcc-4.2.1/gcc/fortran/parse.h Tue Feb 14 16:38:03 2006 --- gcc-4.2.2/gcc/fortran/parse.h Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Parser header ! Copyright (C) 2003, 2005, 2006 Free Software Foundation, Inc. Contributed by Steven Bosscher This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,12 ---- /* Parser header ! Copyright (C) 2003, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Steven Bosscher This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #ifndef GFC_PARSE_H --- 15,22 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #ifndef GFC_PARSE_H diff -Nrcpad gcc-4.2.1/gcc/fortran/primary.c gcc-4.2.2/gcc/fortran/primary.c *** gcc-4.2.1/gcc/fortran/primary.c Tue May 22 14:09:42 2007 --- gcc-4.2.2/gcc/fortran/primary.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Primary expression subroutines ! Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught --- 1,5 ---- /* Primary expression subroutines ! Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/resolve.c gcc-4.2.2/gcc/fortran/resolve.c *** gcc-4.2.1/gcc/fortran/resolve.c Wed Jun 20 21:35:04 2007 --- gcc-4.2.2/gcc/fortran/resolve.c Fri Aug 31 08:27:50 2007 *************** *** 1,13 **** /* Perform type resolution on the various stuctures. ! Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, ! Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Perform type resolution on the various stuctures. ! Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor,Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/scanner.c gcc-4.2.2/gcc/fortran/scanner.c *** gcc-4.2.1/gcc/fortran/scanner.c Fri Feb 16 23:42:11 2007 --- gcc-4.2.2/gcc/fortran/scanner.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Character scanner. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught --- 1,5 ---- /* Character scanner. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Set of subroutines to (ultimately) return the next character to the various matching subroutines. This file's job is to read files and --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Set of subroutines to (ultimately) return the next character to the various matching subroutines. This file's job is to read files and diff -Nrcpad gcc-4.2.1/gcc/fortran/simplify.c gcc-4.2.2/gcc/fortran/simplify.c *** gcc-4.2.1/gcc/fortran/simplify.c Mon Mar 5 08:41:11 2007 --- gcc-4.2.2/gcc/fortran/simplify.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Simplify intrinsic functions at compile-time. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb --- 1,5 ---- /* Simplify intrinsic functions at compile-time. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" #include "system.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" #include "system.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/st.c gcc-4.2.2/gcc/fortran/st.c *** gcc-4.2.1/gcc/fortran/st.c Thu Oct 19 04:51:14 2006 --- gcc-4.2.2/gcc/fortran/st.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Build executable statement trees. ! Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Andy Vaught --- 1,5 ---- /* Build executable statement trees. ! Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Executable statements are strung together into a singly linked list of code structures. These structures are later translated into GCC --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Executable statements are strung together into a singly linked list of code structures. These structures are later translated into GCC diff -Nrcpad gcc-4.2.1/gcc/fortran/symbol.c gcc-4.2.2/gcc/fortran/symbol.c *** gcc-4.2.1/gcc/fortran/symbol.c Thu Dec 21 15:05:24 2006 --- gcc-4.2.2/gcc/fortran/symbol.c Fri Aug 31 08:27:50 2007 *************** *** 1,13 **** /* Maintain binary trees of symbols. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software ! Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Maintain binary trees of symbols. ! Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-array.c gcc-4.2.2/gcc/fortran/trans-array.c *** gcc-4.2.1/gcc/fortran/trans-array.c Thu May 31 18:50:56 2007 --- gcc-4.2.2/gcc/fortran/trans-array.c Fri Aug 31 08:27:50 2007 *************** *** 1,6 **** /* Array translation routines ! Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, ! Inc. Contributed by Paul Brook and Steven Bosscher --- 1,6 ---- /* Array translation routines ! Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Paul Brook and Steven Bosscher *************** This file is part of GCC. *** 8,14 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 8,14 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 17,25 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* trans-array.c-- Various array related code, including scalarization, allocation, initialization and other support routines. */ --- 17,24 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* trans-array.c-- Various array related code, including scalarization, allocation, initialization and other support routines. */ diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-array.h gcc-4.2.2/gcc/fortran/trans-array.h *** gcc-4.2.1/gcc/fortran/trans-array.h Fri Feb 16 12:19:01 2007 --- gcc-4.2.2/gcc/fortran/trans-array.h Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Header for array handling functions ! Copyright (C) 2002, 2003, 2006 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Header for array handling functions ! Copyright (C) 2002, 2003, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Generate code to free an array. */ tree gfc_array_deallocate (tree, tree); --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Generate code to free an array. */ tree gfc_array_deallocate (tree, tree); diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-common.c gcc-4.2.2/gcc/fortran/trans-common.c *** gcc-4.2.1/gcc/fortran/trans-common.c Wed Jun 20 05:02:39 2007 --- gcc-4.2.2/gcc/fortran/trans-common.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Common block and equivalence list handling ! Copyright (C) 2000, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Canqun Yang --- 1,5 ---- /* Common block and equivalence list handling ! Copyright (C) 2000, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Canqun Yang *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* The core algorithm is based on Andy Vaught's g95 tree. Also the way to build UNION_TYPE is borrowed from Richard Henderson. --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* The core algorithm is based on Andy Vaught's g95 tree. Also the way to build UNION_TYPE is borrowed from Richard Henderson. diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-const.c gcc-4.2.2/gcc/fortran/trans-const.c *** gcc-4.2.1/gcc/fortran/trans-const.c Sun Jun 18 06:36:45 2006 --- gcc-4.2.2/gcc/fortran/trans-const.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Translation of constants ! Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Translation of constants ! Copyright (C) 2002, 2003, 2004, 2005, 2007 ! Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* trans-const.c -- convert constant values */ --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* trans-const.c -- convert constant values */ diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-const.h gcc-4.2.2/gcc/fortran/trans-const.h *** gcc-4.2.1/gcc/fortran/trans-const.h Sat Jun 3 17:28:33 2006 --- gcc-4.2.2/gcc/fortran/trans-const.h Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Header for code constant translation functions ! Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,12 ---- /* Header for code constant translation functions ! Copyright (C) 2002, 2003, 2004, 2007 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Returns an INT_CST. */ tree gfc_conv_mpz_to_tree (mpz_t, int); --- 15,22 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Returns an INT_CST. */ tree gfc_conv_mpz_to_tree (mpz_t, int); diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-decl.c gcc-4.2.2/gcc/fortran/trans-decl.c *** gcc-4.2.1/gcc/fortran/trans-decl.c Fri Feb 23 14:12:44 2007 --- gcc-4.2.2/gcc/fortran/trans-decl.c Fri Aug 31 08:27:50 2007 *************** *** 1,13 **** /* Backend function setup ! Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, ! Inc. Contributed by Paul Brook This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Backend function setup ! Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* trans-decl.c -- Handling of backend function and variable decls, etc */ --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* trans-decl.c -- Handling of backend function and variable decls, etc */ diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-expr.c gcc-4.2.2/gcc/fortran/trans-expr.c *** gcc-4.2.1/gcc/fortran/trans-expr.c Thu May 31 18:50:56 2007 --- gcc-4.2.2/gcc/fortran/trans-expr.c Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Expression translation ! Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Paul Brook and Steven Bosscher --- 1,6 ---- /* Expression translation ! Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Paul Brook and Steven Bosscher *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 8,14 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* trans-expr.c-- generate GENERIC trees for gfc_expr. */ --- 17,24 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* trans-expr.c-- generate GENERIC trees for gfc_expr. */ diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-intrinsic.c gcc-4.2.2/gcc/fortran/trans-intrinsic.c *** gcc-4.2.1/gcc/fortran/trans-intrinsic.c Fri Feb 16 14:15:36 2007 --- gcc-4.2.2/gcc/fortran/trans-intrinsic.c Fri Aug 31 08:27:50 2007 *************** This file is part of GCC. *** 8,14 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 8,14 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 17,25 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* trans-intrinsic.c-- generate GENERIC trees for calls to intrinsics. */ --- 17,24 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* trans-intrinsic.c-- generate GENERIC trees for calls to intrinsics. */ diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-io.c gcc-4.2.2/gcc/fortran/trans-io.c *** gcc-4.2.1/gcc/fortran/trans-io.c Mon Feb 12 07:34:51 2007 --- gcc-4.2.2/gcc/fortran/trans-io.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* IO Code translation/library interface ! Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* IO Code translation/library interface ! Copyright (C) 2002, 2003, 2004, 2005, 2007 ! Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-openmp.c gcc-4.2.2/gcc/fortran/trans-openmp.c *** gcc-4.2.1/gcc/fortran/trans-openmp.c Sun Oct 29 11:20:53 2006 --- gcc-4.2.2/gcc/fortran/trans-openmp.c Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* OpenMP directive translation -- generate GCC trees from gfc_code. ! Copyright (C) 2005, 2006 Free Software Foundation, Inc. Contributed by Jakub Jelinek This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,12 ---- /* OpenMP directive translation -- generate GCC trees from gfc_code. ! Copyright (C) 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Jakub Jelinek This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 15,22 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-stmt.c gcc-4.2.2/gcc/fortran/trans-stmt.c *** gcc-4.2.1/gcc/fortran/trans-stmt.c Fri Feb 16 12:19:01 2007 --- gcc-4.2.2/gcc/fortran/trans-stmt.c Fri Aug 31 08:27:50 2007 *************** This file is part of GCC. *** 8,14 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 8,14 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 17,25 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" --- 17,24 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-stmt.h gcc-4.2.2/gcc/fortran/trans-stmt.h *** gcc-4.2.1/gcc/fortran/trans-stmt.h Thu Oct 19 04:51:14 2006 --- gcc-4.2.2/gcc/fortran/trans-stmt.h Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Header for statement translation functions ! Copyright (C) 2002, 2003, 2006 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,12 ---- /* Header for statement translation functions ! Copyright (C) 2002, 2003, 2006, 2007 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* Statement translators (gfc_trans_*) return a fully translated tree. Calls gfc_trans_*. */ --- 15,22 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* Statement translators (gfc_trans_*) return a fully translated tree. Calls gfc_trans_*. */ diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-types.c gcc-4.2.2/gcc/fortran/trans-types.c *** gcc-4.2.1/gcc/fortran/trans-types.c Mon Feb 5 21:28:46 2007 --- gcc-4.2.2/gcc/fortran/trans-types.c Fri Aug 31 08:27:50 2007 *************** *** 1,6 **** /* Backend support for Fortran 95 basic types and derived types. ! Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, ! Inc. Contributed by Paul Brook and Steven Bosscher --- 1,6 ---- /* Backend support for Fortran 95 basic types and derived types. ! Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Paul Brook and Steven Bosscher *************** This file is part of GCC. *** 8,14 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 8,14 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 17,25 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* trans-types.c -- gfortran backend types */ --- 17,24 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* trans-types.c -- gfortran backend types */ diff -Nrcpad gcc-4.2.1/gcc/fortran/trans-types.h gcc-4.2.2/gcc/fortran/trans-types.h *** gcc-4.2.1/gcc/fortran/trans-types.h Fri Jul 29 00:02:38 2005 --- gcc-4.2.2/gcc/fortran/trans-types.h Fri Aug 31 08:27:50 2007 *************** *** 1,5 **** /* Header for Fortran 95 types backend support. ! Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. Contributed by Paul Brook and Steven Bosscher --- 1,5 ---- /* Header for Fortran 95 types backend support. ! Copyright (C) 2002, 2003, 2004, 2007 Free Software Foundation, Inc. Contributed by Paul Brook and Steven Bosscher *************** This file is part of GCC. *** 7,13 **** GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 7,13 ---- GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #ifndef GFC_BACKEND_H --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #ifndef GFC_BACKEND_H diff -Nrcpad gcc-4.2.1/gcc/fortran/trans.c gcc-4.2.2/gcc/fortran/trans.c *** gcc-4.2.1/gcc/fortran/trans.c Thu Oct 19 04:51:14 2006 --- gcc-4.2.2/gcc/fortran/trans.c Fri Aug 31 08:27:50 2007 *************** *** 1,13 **** /* Code translation -- generate GCC trees from gfc_code. ! Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, ! Inc. Contributed by Paul Brook This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Code translation -- generate GCC trees from gfc_code. ! Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 16,24 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #include "config.h" #include "system.h" --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #include "config.h" #include "system.h" diff -Nrcpad gcc-4.2.1/gcc/fortran/trans.h gcc-4.2.2/gcc/fortran/trans.h *** gcc-4.2.1/gcc/fortran/trans.h Mon Feb 12 07:34:51 2007 --- gcc-4.2.2/gcc/fortran/trans.h Fri Aug 31 08:27:50 2007 *************** *** 1,12 **** /* Header for code translation functions ! Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,13 ---- /* Header for code translation functions ! Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 ! Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 15,23 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ #ifndef GFC_TRANS_H #define GFC_TRANS_H --- 16,23 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ #ifndef GFC_TRANS_H #define GFC_TRANS_H diff -Nrcpad gcc-4.2.1/gcc/fortran/types.def gcc-4.2.2/gcc/fortran/types.def *** gcc-4.2.1/gcc/fortran/types.def Mon Oct 9 16:27:14 2006 --- gcc-4.2.2/gcc/fortran/types.def Fri Aug 31 08:27:50 2007 *************** *** 1,11 **** ! /* Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. This file is part of GCC. GCC 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. GCC is distributed in the hope that it will be useful, but WITHOUT ANY --- 1,11 ---- ! /* Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY *************** FITNESS FOR A PARTICULAR PURPOSE. See t *** 14,22 **** for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING. If not, write to the Free ! Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA ! 02110-1301, USA. */ /* This header contains a subset of ../builtin-types.def needed for Fortran frontend builtins. --- 14,21 ---- for more details. You should have received a copy of the GNU General Public License ! along with GCC; see the file COPYING3. If not see ! . */ /* This header contains a subset of ../builtin-types.def needed for Fortran frontend builtins. diff -Nrcpad gcc-4.2.1/libgfortran/ChangeLog gcc-4.2.2/libgfortran/ChangeLog *** gcc-4.2.1/libgfortran/ChangeLog Thu Jul 19 14:29:51 2007 --- gcc-4.2.2/libgfortran/ChangeLog Sun Oct 7 21:20:11 2007 *************** *** 1,3 **** --- 1,16 ---- + 2007-10-07 Release Manager + + * GCC 4.2.2 released. + + 2007-07-21 Jerry DeLisle + + PR libgfortran/32752 + PR libgfortran/32678 + Backport from trunk. + * io/transfer.c (formatted_transfer_scalar): If stream I/O, set + bytes_used to zero. Fix off by one error in calculation of pos and + skips. Don't allow pending_spaces to go negative. + 2007-07-19 Release Manager * GCC 4.2.1 released. diff -Nrcpad gcc-4.2.1/libgfortran/io/transfer.c gcc-4.2.2/libgfortran/io/transfer.c *** gcc-4.2.1/libgfortran/io/transfer.c Wed May 23 02:24:31 2007 --- gcc-4.2.2/libgfortran/io/transfer.c Sun Jul 22 04:02:57 2007 *************** formatted_transfer_scalar (st_parameter_ *** 957,963 **** } bytes_used = (int)(dtp->u.p.current_unit->recl ! - dtp->u.p.current_unit->bytes_left); switch (t) { --- 957,966 ---- } bytes_used = (int)(dtp->u.p.current_unit->recl ! - dtp->u.p.current_unit->bytes_left); ! ! if (is_stream_io(dtp)) ! bytes_used = 0; switch (t) { *************** formatted_transfer_scalar (st_parameter_ *** 1154,1162 **** case FMT_TR: consume_data_flag = 0; ! pos = bytes_used + f->u.n + dtp->u.p.skips; ! dtp->u.p.skips = f->u.n + dtp->u.p.skips; ! dtp->u.p.pending_spaces = pos - dtp->u.p.max_pos; /* Writes occur just before the switch on f->format, above, so that trailing blanks are suppressed, unless we are doing a --- 1157,1165 ---- case FMT_TR: consume_data_flag = 0; ! dtp->u.p.skips += f->u.n; ! pos = bytes_used + dtp->u.p.skips - 1; ! dtp->u.p.pending_spaces = pos - dtp->u.p.max_pos + 1; /* Writes occur just before the switch on f->format, above, so that trailing blanks are suppressed, unless we are doing a *************** formatted_transfer_scalar (st_parameter_ *** 1186,1193 **** if (bytes_used == 0) { dtp->u.p.pending_spaces -= f->u.n; - dtp->u.p.pending_spaces = dtp->u.p.pending_spaces < 0 ? 0 - : dtp->u.p.pending_spaces; dtp->u.p.skips -= f->u.n; dtp->u.p.skips = dtp->u.p.skips < 0 ? 0 : dtp->u.p.skips; } --- 1189,1194 ---- *************** formatted_transfer_scalar (st_parameter_ *** 1211,1216 **** --- 1212,1219 ---- dtp->u.p.skips = dtp->u.p.skips + pos - bytes_used; dtp->u.p.pending_spaces = dtp->u.p.pending_spaces + pos - dtp->u.p.max_pos; + dtp->u.p.pending_spaces = dtp->u.p.pending_spaces < 0 + ? 0 : dtp->u.p.pending_spaces; if (dtp->u.p.skips == 0) break;