diff --git a/init/compile_descr.F90 b/init/compile_descr.F90
index fa1a97a9c526103c5d8f8dfd137d1faf3d083898..c62e8e5294b60c7c68a1131e7dbb2a541f631b8c 100644
--- a/init/compile_descr.F90
+++ b/init/compile_descr.F90
@@ -6,41 +6,43 @@
 
 MODULE m_compile_descr
 
-  IMPLICIT NONE
-
-  CONTAINS
-
-  SUBROUTINE get_compile_desc_string(info)
-    USE m_constants
-    IMPLICIT NONE
-    CHARACTER(LEN=*),INTENT(OUT):: info
-    
-    CHARACTER(len=50)::gitdesc,githash,compile_date,compile_user,compile_host,gitbranch
-    CHARACTER(len=50)::compile_flags,link_flags
-    CALL  get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags)
-    info=new_line("a")// &
-    "This is FLEUR version: "//trim(version_const)//new_line("a")// &
-    "FLEUR was compiled:"//new_line("a")// &
-    "   at: "//TRIM(compile_date)//new_line("a")// &
-    "   by: "//TRIM(compile_user)//new_line("a")// &
-    "   on: "//TRIM(compile_host)//new_line("a")// &
-    "Its git version is:"//new_line("a")// &
-    "   described by: "//TRIM(gitdesc)//new_line("a")// &
-    "   from branch:  "//trim(gitbranch)//new_line("a")// &
-    "   with hash:    "//TRIM(githash)//new_LINE("a")//&
-    "Compiler info:"//new_LINE("a")// &
-    "   flags     :  "//TRIM(compile_flags)//new_LINE("a")//&
-    "   link flags:  "//TRIM(link_flags)
-  end SUBROUTINE get_compile_desc_string
-
-
-  SUBROUTINE get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags)
-    IMPLICIT NONE
-    CHARACTER(LEN=*),INTENT(OUT)::gitdesc,githash,compile_date,compile_user,compile_host,gitbranch,compile_flags,link_flags
+   IMPLICIT NONE
+
+CONTAINS
+
+   SUBROUTINE get_compile_desc_string(info)
+      USE m_constants
+      IMPLICIT NONE
+      CHARACTER(:),ALLOCATABLE,INTENT(OUT):: info
+
+      CHARACTER(:), ALLOCATABLE::gitdesc,githash,compile_date,compile_user,compile_host,gitbranch
+      CHARACTER(:), ALLOCATABLE::compile_flags,link_flags
+
+      CALL  get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags)
+
+      info=new_line("a")// &
+            "This is FLEUR version: "//trim(version_const)//new_line("a")// &
+            "FLEUR was compiled:"//new_line("a")// &
+            "   at: "//TRIM(compile_date)//new_line("a")// &
+            "   by: "//TRIM(compile_user)//new_line("a")// &
+            "   on: "//TRIM(compile_host)//new_line("a")// &
+            "Its git version is:"//new_line("a")// &
+            "   described by: "//TRIM(gitdesc)//new_line("a")// &
+            "   from branch:  "//trim(gitbranch)//new_line("a")// &
+            "   with hash:    "//TRIM(githash)//new_LINE("a")//&
+            "Compiler info:"//new_LINE("a")// &
+            "   flags     :  "//TRIM(compile_flags)//new_LINE("a")//&
+            "   link flags:  "//TRIM(link_flags)
+
+   end SUBROUTINE get_compile_desc_string
+
+   SUBROUTINE get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags)
+      IMPLICIT NONE
+      CHARACTER(:),ALLOCATABLE::gitdesc,githash,compile_date,compile_user,compile_host,gitbranch,compile_flags,link_flags
 
 !This file is created by cmake at time of configuration
 #include "compileinfo.h"
-    
-  END subroutine get_compile_desc
+
+   END subroutine get_compile_desc
 end MODULE m_compile_descr
 
diff --git a/inpgen/inpgen_help.f90 b/inpgen/inpgen_help.f90
index 87db7d4ccfeb048aa2fc46d130055f62e8b86672..8cb9edc61e6626a339963e7f0ccfe0151c0804d6 100644
--- a/inpgen/inpgen_help.f90
+++ b/inpgen/inpgen_help.f90
@@ -12,7 +12,7 @@ CONTAINS
     USE m_juDFT
     USE m_fleur_arguments
     IMPLICIT NONE
-    CHARACTER(LEN=500):: infostring
+    CHARACTER(:), ALLOCATABLE:: infostring
 
     PRINT *,"     Welcome to FLEUR - inpgen   (www.flapw.de)   "
     PRINT *,"     MaX-Release 2.1          (www.max-centre.eu)"
@@ -21,7 +21,7 @@ CONTAINS
 
     !now print version info and help on command line arguments:
     CALL get_compile_desc_string(infostring)
-    WRITE(*,'(a500)') infostring
+    WRITE(*,'(a)') infostring
     WRITE(*,'(a)')
     WRITE(*,'(a)')"------------------------------------------------------"
     WRITE(*,'(a)')"inpgen usage info:"
diff --git a/io/writeOutHeader.F90 b/io/writeOutHeader.F90
index 120ce35a8391e03fb467e39d4e303245e7663970..e3a6206b5abd92adc4bda507adf705a3354975b0 100644
--- a/io/writeOutHeader.F90
+++ b/io/writeOutHeader.F90
@@ -15,7 +15,7 @@ CONTAINS
     USE m_compile_descr
     IMPLICIT NONE
     CHARACTER(len=9) :: cppflag(11)
-    CHARACTER(LEN=500):: infostring
+    CHARACTER(:), ALLOCATABLE:: infostring
     INTEGER          :: i,j
 
     WRITE (6,*) 'This output is generated by ',version_const
@@ -30,7 +30,7 @@ CONTAINS
     WRITE (6,*) 
 
     CALL get_compile_desc_string(infostring)
-    write(6,'(a500)') infostring
+    write(6,'(a)') infostring
     CALL getComputerArchitectures(cppflag,i) ! First determine the architecture
     IF (i.GT.1) THEN 
        WRITE (6,*) 'You set compiler flags for more than one'
diff --git a/io/xmlOutput.F90 b/io/xmlOutput.F90
index ff2aee799d5d0a439c97fa750ce16c9bcd8dfa3c..99d97c1aabf8820aa317b5a69c8f8aadfe6fa06b 100644
--- a/io/xmlOutput.F90
+++ b/io/xmlOutput.F90
@@ -66,8 +66,8 @@ MODULE m_xmlOutput
       CHARACTER(LEN=6)  :: precisionString
       CHARACTER(LEN=9)  :: flags(11)
       CHARACTER(LEN=20) :: structureSpecifiers(11)
-      CHARACTER(LEN=50) :: gitdesc,githash,gitbranch,compile_date,compile_user,compile_host
-      CHARACTER(LEN=50) :: compile_flags,link_flags
+      CHARACTER(:), ALLOCATABLE :: gitdesc,githash,gitbranch,compile_date,compile_user,compile_host
+      CHARACTER(:), ALLOCATABLE :: compile_flags,link_flags
       CHARACTER(LEN=20) :: attributes(7)
       
       maxNumElements = 10
diff --git a/main/fleur_help.F90 b/main/fleur_help.F90
index 992dc7fb217ce3c59bec73d11c5bed6b14aaf0b1..afcfb6965eaca00c04523be4e6d545afef9948f5 100644
--- a/main/fleur_help.F90
+++ b/main/fleur_help.F90
@@ -14,7 +14,7 @@ CONTAINS
     USE m_fleur_arguments
     IMPLICIT NONE
  
-    CHARACTER(LEN=500):: infostring
+    CHARACTER(:), ALLOCATABLE:: infostring
 
     PRINT *,"     Welcome to FLEUR        (www.flapw.de)   "
     PRINT *,"     MaX-Release 2.1       (www.max-centre.eu)"
@@ -26,7 +26,7 @@ CONTAINS
 
     !now print version info and help on command line arguments:
     CALL get_compile_desc_string(infostring)
-    WRITE(*,'(a500)') infostring
+    WRITE(*,'(a)') infostring
     WRITE(*,'(a)')
     WRITE(*,'(a)')"------------------------------------------------------"
     WRITE(*,'(a)')"Usage info:"