fixed a windows bug in make_dir_path

Makefile

@@ -26,6 +26,16 @@
 # #
 ###############################################################################
 
+ifeq ($(shell uname),Linux)
+ OSTYPE=$(shell uname -s)
+else ifeq ($(shell uname),Darwin)
+ OSTYPE=$(shell uname -s)
+else ifeq ($(shell uname),FreeBSD)
+ OSTYPE=$(shell uname -s)
+else
+ OSTYPE=$(shell uname -o)
+endif
+
 srcdir=src
 incdir=include
 
@@ -85,6 +95,9 @@ else
  # we use std=f2008ts rather than f2008 because ts removes some type checking
  # restrictions on interoperabilty routines (which were wrong anyway...)
  FFLAGS=-fPIC -Wall -J ${moddir} -ffree-line-length-none -std=f2008ts
+ ifeq ($(OSTYPE),Msys)
+ FFLAGS+=-D_WIN32
+ endif
  FFLAGS+=$(DEFINES) $(INCLUDES) -fall-intrinsics -Wno-unused -Wno-unused-dummy-argument
  FFLAGS+=-fno-range-check -Wno-integer-division
  ifeq ($(WITH_CHECKS),true)

src/aed_util.F90

@@ -1167,7 +1167,11 @@ LOGICAL FUNCTION make_dir_path(dir)
  INTEGER :: len, i, sys
  CHARACTER(len=128) :: d
  LOGICAL :: res = .TRUE.
+#ifdef _WIN32
+# define DIRSEP "\\"
+#else
 # define DIRSEP "/"
+#endif
 !BEGIN
 !-------------------------------------------------------------------------------
  len = LEN_TRIM(dir)