implicit none (external)

Author: scivision

array/assumed-rank.f90

@@ -4,7 +4,7 @@ module rotflip_rank
 !!
 !! * Gfortran >= 10
 !! * Intel Fortran >= 20.0
-implicit none
+implicit none (external)
 
 contains
 
@@ -33,7 +33,7 @@ program assumed_rank
 
 use rotflip_rank, only: flipud
 
-implicit none
+implicit none (external)
 
 integer :: i, A0 = 0, A1(3) = [0,1,2]
 integer :: A2(3,3) = reshape( &

array/rot90.f90

@@ -6,7 +6,8 @@ module rotflip
 ! (compiles but falls through to class default)
 !
 use, intrinsic:: iso_fortran_env, only: error_unit
-implicit none
+
+implicit none (external)
 
 contains
 

array/test_rot90.f90

@@ -1,7 +1,7 @@
 ! demo rotating a 2-D array 90 degrees clockwise
 use rotflip, only: rot90, flipud, fliplr
 
-implicit none
+implicit none (external)
 
 integer, parameter :: N=3
 integer :: i, iarr(N,N),  Barr(0:2, 0:2)

benchmarks/ackermann.f90

@@ -1,10 +1,12 @@
 module Ackp
-implicit none
+
+implicit none (external)
+
 contains
 
 recursive pure integer function Ap(m, n) result(A)
 integer, intent(in) :: m,n
-   
+
 if (m == 0) then
   A = n+1
 elseif (n == 0) then
@@ -18,8 +20,10 @@ end module Ackp
 
 
 program AckermannPeter
+
 use Ackp
-implicit none
+
+implicit none (external)
 
 integer :: Ack, M, N
 character(8) :: buf

block/block.f90

@@ -1,3 +1,4 @@
+program demo_block
 !! Shows Fortran 2008 block namespace
 !! At BLOCK exit, local allocatables are deallocated, but outer scope allocatable are NOT deallocated
 !!
@@ -8,6 +9,8 @@
 !!  outer scope i=          10
 !!  A allocated T size(a)           4
 
+implicit none (external)
+
 integer :: i, j
 real, allocatable :: A(:)
 

character/ascii.f90

@@ -1,7 +1,7 @@
 program ascii
 !! prints a couple special characters
 
-implicit none
+implicit none (external)
 
 print *,'next is a form feed',achar(12)
 print *,'that was a form feed'

character/character_allocatable.f90

@@ -1,6 +1,7 @@
 program character_alloctable
 !! shows Fortran 2003 allocatable character and auto-allocated array
-implicit none
+
+implicit none (external)
 
 character(:), allocatable :: flex(:)
 

character/character_array.f90

@@ -3,7 +3,8 @@ program character_array
 !! the general concept is to make the character(len=) the length of the
 !! longest string you will need.
 !! trim() each element when actually used if needed.
-implicit none
+
+implicit none (external)
 
 !> specify (*) or maximum len=, else each will be length one.
 character(*), parameter :: foo(3) = [character(9) :: 'hi', 'hello', 'greetings']

character/charlen.f90

@@ -1,6 +1,7 @@
 program charlen
 !! shows how to properly specify character length and character array
-implicit none
+
+implicit none (external)
 
 character*(5) :: cb5  !< obsolete, don't use
 

character/overwrite_stdout.f90

@@ -5,7 +5,7 @@ program overwrite_stdout
 use, intrinsic:: iso_fortran_env, only: stdout=>output_unit
 use sleep_std, only : sleep
 
-implicit none
+implicit none (external)
 
 integer :: i
 integer, parameter :: N=5