代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2873150
f90 plusconst_1.f90
! PR14005
! The GMP conversion routines object to a leading "+"
program plusconst_1
implicit none
real p
integer i
data p /+3.1415/
data i /+42/
real :: q = +1.234
integer :: j = +100
www.eeworm.com/read/366702/2873195
f90 scalarize.f90
! Program to test the scalarizer
program testarray
implicit none
integer, dimension (6, 5) :: a, b
integer n
a = 0
do n = 1, 5
a(4, n) = n
end do
b(:, 5:1:-1) = a
a(1:5
www.eeworm.com/read/366702/2873200
f90 emptyif.f90
! Test empty if statements. We Used to fail this because we folded
! the if stmt before we finished building it.
program emptyif
implicit none
integer i
i=1
if(i .le. 0) then
else
i
www.eeworm.com/read/366702/2873227
f90 forall_4.f90
! Program to test nested forall
program forall2
implicit none
integer a(4,4,2)
integer i, j, k, n
a(:,:,1) = reshape((/ 1, 2, 3, 4,&
5, 6, 7, 8,&
www.eeworm.com/read/366702/2873241
f90 iolength_3.f90
! Test that IOLENGTH works for io list containing more than one entry
program iolength_3
implicit none
integer, parameter :: &
! 32 bit, i.e. 4 byte integer (every gcc architecture should
www.eeworm.com/read/366702/2873286
f90 power.f90
! Program to test the power (**) operator
program testpow
implicit none
real(kind=4) r, s, two
real(kind=8) :: q
complex(kind=4) :: c, z
real, parameter :: del = 0.0001
integer i, j
www.eeworm.com/read/366702/2873319
f90 der_type.f90
! Program to test derived types
program der_type
implicit none
type t1
integer, dimension (4, 5) :: a
integer :: s
end type
type my_type
character(20) :: c
type
www.eeworm.com/read/366702/2873383
f90 defined_type_2.f90
!This used to ICE as we chose the wrong type for the
! temporary to hold type%x
! fortran/18157
MODULE bug
IMPLICIT NONE
TYPE :: my_type
REAL :: x
END TYPE
TYPE (my_type), DIMENSION(3) ::
www.eeworm.com/read/366702/2876088
f90 import5.f90
! { dg-do compile }
! Test for import in interfaces PR fortran/30922
!
! Contributed by Tobias Burnus
!
module test_import
implicit none
type :: my_type
integer :: data
www.eeworm.com/read/366702/2876124
f90 inquire_5.f90
! { dg-do run }
! pr19314 inquire(..position=..) segfaults
! test by Thomas.Koenig@online.de
! bdavis9659@comcast.net
implicit none
character*20 chr
open(7,STATUS='SCRATCH')