1
1

Removed definition of types from module.

This commit was SVN r3968.
Этот коммит содержится в:
Craig E Rasmussen 2005-01-12 18:30:21 +00:00
родитель 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