代码搜索：module
找到约 10,000 项符合「module」的源代码
代码结果 10,000
www.eeworm.com/read/368173/2823925
java register_procedure_module_ok.java
/*
*this file is part of nseer erp
*Copyright (C)2006-2010 Nseer(Beijing) Technology co.LTD/http://www.nseer.com
*
*This program is free software; you can redistribute it and/or
*modify it
www.eeworm.com/read/366702/2873137
f90 function_module_1.f90
! This can fail because BB is not resolved correctly.
module M1
INTEGER p
CONTAINS
subroutine AA ()
implicit NONE
p = BB ()
CONTAINS
subroutine AA_1 ()
implicit NONE
integer :: i
www.eeworm.com/read/366702/2873208
f90 module_init_1.f90
! PR 13077: we used to fail when reading the module
module m1
real, dimension(4) :: a
data a(1:3:2) /2*1.0/
end module m1
use m1
if (a(1).NE.1.) call abort()
if (a(1).NE.a(3)) call abort()
end
www.eeworm.com/read/366702/2873242
f90 module_interface_2.f90
! Test generic interfaces declared in modules.
! We used to get the name mangling wrong for these.
module module_interface_2
interface foo
subroutine myfoo (i)
integer i
end subroutine
www.eeworm.com/read/366702/2876018
f90 module_read_1.f90
! { dg-do run }
! PR fortran/33941
! The problem was that the intrinsic operators
! were written to the module file as '/=' etc.
! but this format was not understood on reading.
!
! Test case by Toby
www.eeworm.com/read/366702/2876368
f90 module_implicit_conversion.f90
! { dg-do compile }
! { dg-options "-std=gnu" }
module module_implicit_conversion
! double complex :: s = (1.0D0, 0D0)
double complex :: s = (1.0, 0D0)
end module module_implicit_conversion
! {
www.eeworm.com/read/366702/2876404
f90 module_commons_2.f90
! { dg-do compile }
! Tests the fix for PR35474, in which the PRIVATE statement would
! cause the error Internal Error at (1): free_pi_tree(): Unresolved fixup
! This arose because the symbol for 'i'
www.eeworm.com/read/366702/2876636
f90 module_naming_1.f90
! { dg-do assemble }
! PR 31144
! Makes sure that our name mangling scheme can't be outwitted
! old scheme
module m1
contains
subroutine m2__m3()
end subroutine m2__m3
end module m1
module m1__m
www.eeworm.com/read/366702/2876648
f90 module_double_reuse.f90
! Test of fix for PR18878
!
! Based on example in PR by Steve Kargl
!
module a
integer, parameter :: b = kind(1.d0)
real(b) :: z
end module a
program d
use a, only : e => b, f => b, u
www.eeworm.com/read/366702/2876742
f90 non_module_public.f90
! { dg-do compile }
! PR20837 - A symbol may not be declared PUBLIC or PRIVATE outside a module.
! Contributed by Joost VandeVondele
integer, parameter, public :: i=1 ! { dg-error "o