From ca4dc824b58427359bbd88979bb2eab9d0062a9f Mon Sep 17 00:00:00 2001
From: Craig E Rasmussen <rasmus@cas.uoregon.edu>
Date: Wed, 12 Jan 2005 18:30:21 +0000
Subject: [PATCH] Removed definition of types from module.

This commit was SVN r3968.
---
 src/mpi/f90/test/print_align.f90 | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/mpi/f90/test/print_align.f90 b/src/mpi/f90/test/print_align.f90
index 60e3d4066e..13b419916c 100644
--- a/src/mpi/f90/test/print_align.f90
+++ b/src/mpi/f90/test/print_align.f90
@@ -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