Fortran String to Array of Int

PROGRAM Example
 
  CHARACTER(23) :: str = "Hello,How,Are,You,Today"
  CHARACTER(5) :: word(5)
  INTEGER :: pos1 = 1, pos2, n = 0, i
 
  DO
    pos2 = INDEX(str(pos1:), ",")
    IF (pos2 == 0) THEN
       n = n + 1
       word(n) = str(pos1:)
       EXIT
    END IF
    n = n + 1
    word(n) = str(pos1:pos1+pos2-2)
    pos1 = pos2+pos1
 END DO
 
 DO i = 1, n
   WRITE(*,"(2A)", ADVANCE="NO") TRIM(word(i)), "."
 END DO
 
END PROGRAM Example

implicit none
character(1024) :: c = "23,87,43,987,1,543"
integer :: a(6)
read(c,*) a
print *, a
end program

program main
  implicit none
  character(:), allocatable :: c
  integer :: a(6)
  c ="[23,87,43,987,1,543]"
  c = c(2:len(c)-1)
  read(c,*) a
  print *, a
end