implicit none (type, external)

Author: scivision

CMakeLists.txt

@@ -1,12 +1,16 @@
 cmake_minimum_required(VERSION 3.15)  # implicit CMP0094
+
 if(NOT CMAKE_BUILD_TYPE)
-  set(CMAKE_BUILD_TYPE Release CACHE STRING "Debug or Release")
+  set(CMAKE_BUILD_TYPE Release CACHE STRING "default build type")
 endif()
+
 project(Fortran2018Examples
 LANGUAGES C Fortran
 DESCRIPTION "Example of using modern Fortran syntax"
 VERSION 1.2.0)
+
 enable_testing()
+include(FeatureSummary)
 
 set(CTEST_TEST_TIMEOUT 10)  # default timeout [seconds]
 
@@ -17,7 +21,6 @@ check_language(CXX)
 if(CMAKE_CXX_COMPILER)
   enable_language(CXX)
   include(CheckCXXSourceRuns)
-  set(CMAKE_CXX_STANDARD_REQUIRED ON)
 endif()
 
 include(cmake/compilers.cmake)
@@ -46,3 +49,9 @@ add_subdirectory(real)
 add_subdirectory(standard)
 add_subdirectory(submodule)
 add_subdirectory(system)
+
+add_feature_info(cxx_fs cxx17filesystem_ok "tests using C++17 filesystem")
+add_feature_info(Openmp hasOMP "tests using OpenMP")
+add_feature_info(mpi hasMPI "tests using MPI")
+
+feature_summary(WHAT ALL)

array/assumed-rank.f90

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

array/rot90.f90

@@ -7,7 +7,7 @@ module rotflip
 !
 use, intrinsic:: iso_fortran_env, only: error_unit
 
-implicit none (external)
+implicit none (type, 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 (external)
+implicit none (type, external)
 
 integer, parameter :: N=3
 integer :: i, iarr(N,N),  Barr(0:2, 0:2)

benchmarks/ackermann.f90

@@ -1,6 +1,6 @@
 module Ackp
 
-implicit none (external)
+implicit none (type, external)
 
 contains
 
@@ -23,7 +23,7 @@ program AckermannPeter
 
 use Ackp
 
-implicit none (external)
+implicit none (type, external)
 
 integer :: Ack, M, N
 character(8) :: buf

block/block.f90

@@ -9,7 +9,7 @@ program demo_block
 !!  outer scope i=          10
 !!  A allocated T size(a)           4
 
-implicit none (external)
+implicit none (type, external)
 
 integer :: i, j
 real, allocatable :: A(:)

character/ascii.f90

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

character/character_allocatable.f90

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

character/character_array.f90

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

character/charlen.f90

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