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
!
module OMPI_TEST_ALIGN
program main
type AlignReal
character a
real(selected_real_kind(6)) :: w
@ -76,11 +77,9 @@ module OMPI_TEST_ALIGN
character c
complex(selected_real_kind(31)) :: z
end type
end module
program main
use OMPI_TEST_ALIGN
external align_c
type(AlignReal) :: ar
type(AlignDouble) :: ad
type(AlignQuad) :: aq