Assem Medhat
Assem Medhat
Calling a **function** or **subroutine** from another file throws error. > func.f90 ```Fortran function f() result(d) implicit none integer :: d d = 9 end function f ``` >prog.f90 ```Fortran...
After changing `make.inc` file configurations in lapack directory to use **LFortran** and ( **fixed-form** , **implicit interface** ) flags. ```shell assem@assem-PC:~/lapack$ make make -C INSTALL run make[1]: Entering directory '/home/assem/lapack/INSTALL'...
```fortran module a implicit none integer ,allocatable , dimension(:) :: f end module a program mm use a implicit none allocate(f(4)) f = [1,2,3,4] print *,f end program mm ```...
fixes #4348 Mainly, This fix does the following : - sets whole node type of `structInstanceMember` resulting from `visit_nameutils()` to array, if an array is found in the node (it...
```fortran integer :: a(3) integer :: b(3) where ( 1 == a) b = 555 where ( 1+1 == a) b = 555 ``` The main issue here is that...
```fortran program name implicit none TYPE diag_type INTEGER :: len END TYPE diag_type TYPE(diag_type), DIMENSION(3) :: diag diag%len = -1 end program name ``` ` diag%len = -1` should be...
We need to provide a proper error message to the user when he passes an array with dimensions less that the one declared in the function. For now we raise...
towards #2543 *** **Concerns** - [ ] Naming of `print_t` only member to be 'text', is that a good choice? - [ ] Now, with `print` only supporting single argument...
MRE ```fortran program intrinsics_177 character(len=20) :: str = 'gfortran ' str = adjustr(str) ! print *, str // This works print "(a)", str end program ``` adds garbage value when...
As an example : ```Fortran program whereee integer ::arr(3,3,3) arr = 10 where(arr(:,:,:) == 10) arr(:,:,:) = 555 end where print *, arr end program whereee ``` Result in this...