drikosev

#include <stdio.h>
#include <stdlib.h>

struct dim {
    int lower;
    int upper;
};

struct array {

drikosev

     Sep 16, 2019
     Ev. Drikos


     The program in this gist demonstrates how one can achieve
     default initialization on Fortran derived types, since the
     language does not inherently support such a functionality.

     In Specific, Fortran allows the instantiation of an object

drikosev

    !            Profiled: 23ms (total time varies per optimization level)
    ! start libdyld.dylib: 12ms (52.1%)
    !    main program run: 11ms (47.8%)
    !             findloc:  9.1% of 11ms
    !                      [The above representative percentages vary per run]
    !            Compiler: GNU Fortran 4.8.5 (github.com/drikosev/pc)
    !            Profiler: Instruments 9.3
    !                  OS: macOS 10.13
    !            Computer: MBPR 2013 - 2,4 GHz Intel Core i7

drikosev

! { dg-do run }
! { dg-options "-fopenmp" }
!   By default: -fallow-invalid-boz 
!   By default:  Warn only few known non portable uses
!      whereas  -Wno-invalid-boz disables all related warnings, 
!          and  -Winvalid-boz    enables  all related warnings. 
  
program boz_extensions
 integer, parameter         :: p0  = Z'1234'
 real,parameter             :: rc  = real(z'50CB9F09')

drikosev

module m_type0
    
    type :: Type0
    contains
        procedure :: eq => eq0
    end type Type0
    
contains
    
    logical function eq0(this,b)

drikosev

! { dg-do run }
! { dg-shouldfail "Fortran runtime error: Assignment with unallocated RHS 'w'" }
! {     dg-output "Fortran runtime error: Assignment with unallocated RHS 'w'" }

! Catch a Runtime error on intrinsic assignment of
! a class LHS with an unallocated RHS.

module testmode
  implicit none

drikosev

module m_sys 
 implicit none 
 
 public  get_os_name 
 public  get_user_home 
 public  get_arg_prefix 
 public  get_file_sep 
  
 character(len=20),  save  :: os_name     = ' '
 character(len=255), save  :: homedir     = ' '

drikosev

  This Fortran/C interoperability example implements a static dictionary
  containing <numeric key, unicode text> pairs, which are defined in file
  "dictionary.c" and a Fortran program ie can print them in a terminal. 

  To build the project in a Linux, MacOS, or Cygwin terminal you can use
  the Makefile. If you have GNU Fortran installed, then just type "make".

  In Windows 8.1 ie run dictionary.exe in a blue PowerShell Console.

drikosev

!     CHECK THE COMMANDS WHICH SHOULD HAVE EQUAL SIGN
!     10 - no equal sign required
!     11 - equal sign required

      integer         :: icep = 302 !ie
      integer         :: nn
      character(2)    :: ch
      character(1050) :: go 
      parameter(go   =                                                  &
      !01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20      & !  cells   col

drikosev

<sql-implementation> ::= 
           <direct SQL statement> 

<direct SQL statement> ::= 
           [ <separator> ] <directly executable statement> <semicolon> 

<separator> ::= 
           { <comment> | <white spaces> } ... 

<comment> ::=