URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42050.f90] - Rev 302
Compare with Previous | Blame | View Log
! { dg-options "-O2 -fgraphite-identity " }
MODULE qs_ks_methods
INTEGER, PARAMETER :: sic_list_all=1
TYPE dft_control_type
INTEGER :: sic_list_id
END TYPE
CONTAINS
SUBROUTINE sic_explicit_orbitals( )
TYPE(dft_control_type), POINTER :: dft_control
INTEGER, ALLOCATABLE, DIMENSION(:, :) :: sic_orbital_list
INTEGER, DIMENSION(:), &
POINTER :: mo_derivs
SELECT CASE(dft_control%sic_list_id)
CASE(sic_list_all)
DO i=1,k_alpha
IF (SIZE(mo_derivs,1)==1) THEN
ELSE
sic_orbital_list(3,iorb)=2
ENDIF
ENDDO
END SELECT
CALL test()
END SUBROUTINE sic_explicit_orbitals
END MODULE qs_ks_methods