Regression in the 4.2-20060121 snapshot

[Dominique Dhumieres]

I don't know if this is the same problem as in PR 25901,
but the polyhedron test test_fpu.f90 fails to compile with:

 In file test_fpu.f90:254

      INTENT (IN) A , Alpha , B , Beta , K , Lda , Ldb , Ldc , M , N
                                               1
Error: Cannot change attributes of symbol at (1) after it has been used
 I73

      INTENT (IN) A , Alpha , Beta , Incx , Incy , Lda , M , N , X
                                                     1
Error: Cannot change attributes of symbol at (1) after it has been used
 In file test_fpu.f90:291

      INTENT (IN) Alpha , Incx , Incy , Lda , M , N , X , Y
                                          1
Error: Cannot change attributes of symbol at (1) after it has been used
 In file test_fpu.f90:335

      INTENT (IN) A , Alpha , Lda , Ldb , M , N
                                1
Error: Cannot change attributes of symbol at (1) after it has been used
 In file test_fpu.f90:353

      INTENT (IN) A , Incx , Lda , N
                               1
Error: Cannot change attributes of symbol at (1) after it has been used
 In file test_fpu.f90:372

      INTENT (IN) A , Alpha , Lda , Ldb , M , N
                                1
Error: Cannot change attributes of symbol at (1) after it has been used
 In file test_fpu.f90:447

      INTENT (IN) Ipiv , Lwork
                          1
Error: Cannot change attributes of symbol at (1) after it has been used
 In file test_fpu.f90:537

      USE S_DGER
               1
Fatal Error: Can't open module file 's_dger.mod' for reading at (1): No such file or directory

TIA

Dominique