OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [use_only_3.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! This tests the patch for PR34975, in which 'n', 'ipol', and 'i' would be
3
! determined to have 'no IMPLICIT type'.  It turned out to be fiendishly
4
! difficult to write a testcase for this PR because even the smallest changes
5
! would make the bug disappear.  This is the testcase provided in the PR, except
6
! that all the modules are put in 'use_only_3.inc' in the same order as the
7
! makefile.  Even this has an effect; only 'n' is now determined to be
8
! improperly typed.  All this is due to the richness of the symtree and the
9
! way in which the renaming inserted new symtree entries.  Unless somenody can
10
! come up with a reduced version, this relatively large file will have to be added
11
! to the testsuite.  Fortunately, it only has to be comiled once:)
12
!
13
! Reported by Tobias Burnus 
14
!
15
include 'use_only_3.inc'
16
subroutine dforceb(c0, i, betae, ipol, bec0, ctabin, gqq, gqqm, qmat, dq2, df)
17
  use gvecs
18
  use gvecw, only: ngw
19
  use parameters
20
  use electrons_base, only: nx => nbspx, n => nbsp, nspin, f
21
  use constants
22
  use cvan
23
  use ions_base
24
  use ions_base, only : nas => nax
25
  implicit none
26
 
27
  integer ipol, i, ctabin
28
  complex c0(n), betae, df,&
29
       &   gqq,gqqm,&
30
       &   qmat
31
  real bec0,&
32
       &   dq2,  gmes
33
 
34
 end subroutine dforceb
35
! { dg-final { cleanup-modules "cell_base cvan gvecs kinds" } }
36
! { dg-final { cleanup-modules "constants electrons_base gvecw parameters" } }
37
! { dg-final { cleanup-modules "control_flags electrons_nose ions_base" } }
38
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.