Commits

Harald Klimach committed 6742f55

Define extdouble stuff only, if it is different from the quadruple kind

Comments (0)

Files changed (1)

          implicit none
          integer, parameter :: quad_k = selected_real_kind(33)
          real(kind=quad_k) :: a_quad_real
+         write(*,*) quad_k
        end program checkquad''',
                   msg = 'Checking for Quadruple Precision',
-                  mandatory=False, define_name='quadruple')
+                  mandatory=False, define_name='quadruple',
+                  execute = True, define_ret = True)
     conf.env['quad_support'] = conf.is_defined('quadruple')
+    if conf.env['quad_support']:
+       conf.env['quad_k'] = int(conf.get_define('quadruple').replace('"', '').strip())
 
     conf.check_fc(fragment = '''
        program checkxdble
          implicit none
          integer, parameter :: xdble_k = selected_real_kind(18)
          real(kind=xdble_k) :: a_xdble_real
+         write(*,*) xdble_k
        end program checkxdble''',
                   msg = 'Checking for Extended Double Precision',
-                  mandatory=False, define_name='extdouble')
-    conf.env['xdble_support'] = conf.is_defined('extdouble')
+                  mandatory=False, define_name='extdouble',
+                  execute = True, define_ret = True)
+    conf.env['xdble_support'] = False
+    if conf.is_defined('extdouble'):
+       conf.env['xdble_k'] = int(conf.get_define('extdouble').replace('"', '').strip())
+       if conf.env['xdble_k'] != conf.env['quad_k']:
+          conf.env['xdble_support'] = True
     # Cleanup the DEFINES again
     conf.env.DEFINES = tmpDEF
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.