Removed definition of types from module.
This commit was SVN r3968.
Этот коммит содержится в:
родитель
45c3fcd508
Коммит
ca4dc824b5
@ -15,7 +15,8 @@
|
|||||||
! - prints out alignment of real types
|
! - prints out alignment of real types
|
||||||
!
|
!
|
||||||
|
|
||||||
module OMPI_TEST_ALIGN
|
program main
|
||||||
|
|
||||||
type AlignReal
|
type AlignReal
|
||||||
character a
|
character a
|
||||||
real(selected_real_kind(6)) :: w
|
real(selected_real_kind(6)) :: w
|
||||||
@ -76,11 +77,9 @@ module OMPI_TEST_ALIGN
|
|||||||
character c
|
character c
|
||||||
complex(selected_real_kind(31)) :: z
|
complex(selected_real_kind(31)) :: z
|
||||||
end type
|
end type
|
||||||
end module
|
|
||||||
|
|
||||||
program main
|
|
||||||
use OMPI_TEST_ALIGN
|
|
||||||
external align_c
|
external align_c
|
||||||
|
|
||||||
type(AlignReal) :: ar
|
type(AlignReal) :: ar
|
||||||
type(AlignDouble) :: ad
|
type(AlignDouble) :: ad
|
||||||
type(AlignQuad) :: aq
|
type(AlignQuad) :: aq
|
||||||
|
Загрузка…
Ссылка в новой задаче
Block a user