Commits

Satish Balay committed a3b0a0b

fix F2003 test for bgq [as F2003 code fails to compile on bgq]

  • Participants
  • Parent commits c1f9d55

Comments (0)

Files changed (1)

config/compilers.py

       use,intrinsic :: iso_c_binding
       Type(C_Ptr),Dimension(:),Pointer :: CArray
       character(kind=c_char),pointer   :: nullc => null()
-      CArray = c_loc(nullc)'''):
+      character(kind=c_char,len=5),dimension(:),pointer::list1
+
+      allocate(list1(5))
+      CArray = (/(c_loc(list1(i)),i=1,5),c_loc(nullc)/)'''):
       self.addDefine('USING_F2003', 1)
       self.fortranIsF2003 = 1
       self.logPrint('Fortran compiler supports F2003')