From 1be4207c58524c5b1592334f9182fa7bc83dd51c Mon Sep 17 00:00:00 2001
From: Matthias Krack <matthias.krack@psi.ch>
Date: Sat, 9 Nov 2013 07:09:33 +0000
Subject: [PATCH] Workaround for g95

svn-origin-rev: 13304
---
 src/dbcsr_lib/dbcsr_cuda_stream.F | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/dbcsr_lib/dbcsr_cuda_stream.F b/src/dbcsr_lib/dbcsr_cuda_stream.F
index 0a960186af..218b67da30 100644
--- a/src/dbcsr_lib/dbcsr_cuda_stream.F
+++ b/src/dbcsr_lib/dbcsr_cuda_stream.F
@@ -31,8 +31,8 @@ MODULE dbcsr_cuda_stream
 
 #if !defined (__DBCSR_CUDA)
   TYPE dbcsr_cuda_stream_type
-    PRIVATE
-    INTEGER     :: dummy = 0!needed to make g95 happy
+!MK PRIVATE                  ! workaround for g95
+    INTEGER     :: dummy = 0 ! needed to make g95 happy
   END TYPE dbcsr_cuda_stream_type
 
 #else