Login
[x]
Log in using an account from:
Fedora Account System
Red Hat Associate
Red Hat Customer
Or login using a Red Hat Bugzilla account
Forgot Password
Login:
Hide Forgot
Create an Account
Red Hat Bugzilla – Attachment 911098 Details for
Bug 1111914
Recurring typo
[?]
New
Simple Search
Advanced Search
My Links
Browse
Requests
Reports
Current State
Search
Tabular reports
Graphical reports
Duplicates
Other Reports
User Changes
Plotly Reports
Bug Status
Bug Severity
Non-Defaults
|
Product Dashboard
Help
Page Help!
Bug Writing Guidelines
What's new
Browser Support Policy
5.0.4.rh83 Release notes
FAQ
Guides index
User guide
Web Services
Contact
Legal
This site requires JavaScript to be enabled to function correctly, please enable it.
[patch]
Typo patch to compat-gcc-44-4.4.7-8.el7 source
gcc-intrinsic-typo.diff (text/plain), 74.26 KB, created by
Zenon Panoussis
on 2014-06-21 23:51:52 UTC
(
hide
)
Description:
Typo patch to compat-gcc-44-4.4.7-8.el7 source
Filename:
MIME Type:
Creator:
Zenon Panoussis
Created:
2014-06-21 23:51:52 UTC
Size:
74.26 KB
patch
obsolete
>diff -Nur SOURCES.orig/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90 SOURCES/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90 >--- SOURCES.orig/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90 2009-01-14 12:05:14.000000000 +0100 >+++ SOURCES/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90 2014-06-22 01:38:41.223000000 +0200 >@@ -1,6 +1,6 @@ > ! { dg-do run } > ! { dg-options "-fbounds-check" } >-! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" } >+! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" } > module tst > contains > subroutine foo(res) >@@ -18,6 +18,6 @@ > integer :: res(3) > call foo(res) > end program main >-! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" } >+! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" } > ! { dg-final { cleanup-modules "tst" } } > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90 SOURCES/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90 >--- SOURCES.orig/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90 2009-01-14 12:05:14.000000000 +0100 >+++ SOURCES/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90 2014-06-22 01:38:41.461000000 +0200 >@@ -1,6 +1,6 @@ > ! { dg-do run } > ! { dg-options "-fbounds-check" } >-! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" } >+! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" } > module tst > contains > subroutine foo(res) >@@ -18,5 +18,5 @@ > integer :: res(3) > call foo(res) > end program main >-! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" } >+! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" } > ! { dg-final { cleanup-modules "tst" } } >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90 SOURCES/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90 >--- SOURCES.orig/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90 2009-01-14 12:05:14.000000000 +0100 >+++ SOURCES/gcc-4.4.7-20120601/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90 2014-06-22 01:38:41.421000000 +0200 >@@ -1,6 +1,6 @@ > ! { dg-do run } > ! { dg-options "-fbounds-check" } >-! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" } >+! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" } > module tst > contains > subroutine foo(res) >@@ -18,5 +18,5 @@ > integer :: res(3) > call foo(res) > end program main >-! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" } >+! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" } > ! { dg-final { cleanup-modules "tst" } } >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i16.c 2014-06-22 01:38:47.013000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i1.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i1.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i1.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i1.c 2014-06-22 01:38:42.160000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i2.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i2.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i2.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i2.c 2014-06-22 01:38:46.799000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i4.c 2014-06-22 01:38:41.752000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_i8.c 2014-06-22 01:38:41.954000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r10.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r10.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r10.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r10.c 2014-06-22 01:38:45.927000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r16.c 2014-06-22 01:38:45.074000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r4.c 2014-06-22 01:38:44.401000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_16_r8.c 2014-06-22 01:38:42.531000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i16.c 2014-06-22 01:38:47.176000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i1.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i1.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i1.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i1.c 2014-06-22 01:38:46.695000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i2.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i2.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i2.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i2.c 2014-06-22 01:38:41.649000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i4.c 2014-06-22 01:38:45.594000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_i8.c 2014-06-22 01:38:43.825000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r10.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r10.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r10.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r10.c 2014-06-22 01:38:44.017000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r16.c 2014-06-22 01:38:42.447000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r4.c 2014-06-22 01:38:45.697000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_4_r8.c 2014-06-22 01:38:44.963000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i16.c 2014-06-22 01:38:41.839000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i1.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i1.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i1.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i1.c 2014-06-22 01:38:42.051000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i2.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i2.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i2.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i2.c 2014-06-22 01:38:43.703000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i4.c 2014-06-22 01:38:44.197000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_i8.c 2014-06-22 01:38:43.305000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r10.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r10.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r10.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r10.c 2014-06-22 01:38:46.488000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r16.c 2014-06-22 01:38:46.592000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r4.c 2014-06-22 01:38:42.299000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/maxloc0_8_r8.c 2014-06-22 01:38:43.131000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MAXLOC intrnisic: is %ld, should be %ld", >+ " MAXLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MAXLOC intrnisic" >+ runtime_error ("rank of MASK argument in MAXLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i16.c 2014-06-22 01:38:46.897000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i1.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i1.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i1.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i1.c 2014-06-22 01:38:45.369000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i2.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i2.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i2.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i2.c 2014-06-22 01:38:43.405000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i4.c 2014-06-22 01:38:45.173000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_i8.c 2014-06-22 01:38:44.511000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r10.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r10.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r10.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r10.c 2014-06-22 01:38:42.909000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r16.c 2014-06-22 01:38:44.761000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r4.c 2014-06-22 01:38:42.712000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_16_r8.c 2014-06-22 01:38:44.852000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i16.c 2014-06-22 01:38:44.095000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i1.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i1.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i1.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i1.c 2014-06-22 01:38:45.815000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i2.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i2.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i2.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i2.c 2014-06-22 01:38:43.019000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i4.c 2014-06-22 01:38:45.258000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_i8.c 2014-06-22 01:38:43.608000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r10.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r10.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r10.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r10.c 2014-06-22 01:38:46.086000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r16.c 2014-06-22 01:38:43.930000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r4.c 2014-06-22 01:38:46.286000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_4_r8.c 2014-06-22 01:38:43.496000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i16.c 2014-06-22 01:38:44.625000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i1.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i1.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i1.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i1.c 2014-06-22 01:38:42.626000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i2.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i2.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i2.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i2.c 2014-06-22 01:38:47.297000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i4.c 2014-06-22 01:38:45.490000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_i8.c 2014-06-22 01:38:46.196000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r10.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r10.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r10.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r10.c 2014-06-22 01:38:43.222000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r16.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r16.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r16.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r16.c 2014-06-22 01:38:46.381000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r4.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r4.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r4.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r4.c 2014-06-22 01:38:44.299000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r8.c SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r8.c >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r8.c 2009-07-25 11:11:31.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/generated/minloc0_8_r8.c 2014-06-22 01:38:42.801000000 +0200 >@@ -77,7 +77,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -235,12 +235,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " MINLOC intrnisic: is %ld, should be %ld", >+ " MINLOC intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in MINLOC intrnisic" >+ runtime_error ("rank of MASK argument in MINLOC intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); > >diff -Nur SOURCES.orig/gcc-4.4.7-20120601/libgfortran/m4/iforeach.m4 SOURCES/gcc-4.4.7-20120601/libgfortran/m4/iforeach.m4 >--- SOURCES.orig/gcc-4.4.7-20120601/libgfortran/m4/iforeach.m4 2009-07-25 10:35:39.000000000 +0200 >+++ SOURCES/gcc-4.4.7-20120601/libgfortran/m4/iforeach.m4 2014-06-22 01:38:41.539000000 +0200 >@@ -49,7 +49,7 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " u_name intrnisic: is %ld, should be %ld", >+ " u_name intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > } > } >@@ -169,12 +169,12 @@ > ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound; > if (ret_extent != rank) > runtime_error ("Incorrect extent in return value of" >- " u_name intrnisic: is %ld, should be %ld", >+ " u_name intrinsic: is %ld, should be %ld", > (long int) ret_extent, (long int) rank); > > mask_rank = GFC_DESCRIPTOR_RANK (mask); > if (rank != mask_rank) >- runtime_error ("rank of MASK argument in u_name intrnisic" >+ runtime_error ("rank of MASK argument in u_name intrinsic" > "should be %ld, is %ld", (long int) rank, > (long int) mask_rank); >
<b>You cannot view the attachment while viewing its details because your browser does not support IFRAMEs. <a href="attachment.cgi?id=911098">View the attachment on a separate page</a>.</b>
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
Attachments on
bug 1111914
: 911098