Workaround for g95

svn-origin-rev: 13304
This commit is contained in:
Matthias Krack 2013-11-09 07:09:33 +00:00
parent 2986abcb85
commit 1be4207c58

View file

@ -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